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ABSTRACT 


This report is documentation for the Irrigation Production Data System (IPDS), 
Lotus macros used to perform comparative statics, and IPDS operating 
procedures. IPDS is a Lotus 1-2-3 microcomputer database developed to help 
evaluate irrigation returns and breakeven statistics across crops, States, and 
U.S. farm production regions. The IPDS database incorporates 1984 crop yield, 
acreage, price, and cost data for 11 dryland and 10 irrigated commodities. 

The system may be used to perform comparative static analysis with respect to 
adjustments in selected input and output factors by State and region. 


Keywords: Irrigation data, irrigation returns, crop budgets, enterprise 
budgets, crop cost/returns. 
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A User’s Manual for the 
Irrigation Production 
Data System (IPDS) 


Glenn D. Schaible 
Marcel P. Aillery 
Patrick Canning 


INTRODUCTION 


This report serves as documentation for the Irrigation Production Data 
System (IPDS). IPDS consists of a crop production database organized by a 
series of Lotus 1-2-3 spreadsheets and macros for use on a microcomputer. 
The IPDS database incorporates 1984 production data for 11 commodities 
(corn for grain, wheat, soybeans, cotton, rice, oats, barley, sorghum for 
grain, corn silage, alfalfa hay, and other hay). Crop-specific information 
includes acreage, yield, price, input use, costs, returns, and breakeven 
statistics for both dryland and irrigated crop production organized by 
State and U.S. farm production region. 


The IPDS data were originally developed for research on the aggregate 
agricultural sector at USDA's Economic Research Service (ERS). The data 
are not intended to replace or substitute for the cost of production (COP) 
statistics published by the Farm Sector Financial Analysis Branch, 
Agriculture and Rural Economy Division, ERS. 


IPDS was developed as a tool to help analyze costs and returns across 
crops, States, and U.S. farm production regions. IPDS is not a budget 
generator but rather a framework with which to organize, modify, and 
display State-level crop production data. Adjustments in selected input 
and output levels by crop, State, and region may be evaluated in a 
comparative static framework. Potential user-specified adjustments involve 
commodity price, yield, water use, land, labor, and various irrigation 
costs. The system may also be used to compute measures of the value of 


water used to irrigate crops. 


IPDS spreadsheet format enables users to access, modify, and display 
selected data items relatively easily. Users can perform analyses by 
accessing crop spreadsheets, either individually or through prepared Lotus 
macros. Macros are a sequence of keystrokes and commands saved on file 
that are used to perform complex and/or repetitive computational tasks. 
Macros, along with a standardized spreadsheet format, allow the user to 
conduct analysis involving selected variables across multiple crops, and 


across dryland and irrigated sectors. 


IPDS presents and computes 1984 State and/or regional average estimates 
for: 


fe) Farm-level costs, selected input use, and net returns for dryland and 
irrigated crop enterprises (on a per-acre basis, a per-unit yield 
basis, and a per unit of water applied basis), by State, and by U.S. 
farm production region. 


fo) Breakeven commodity prices, yields, and irrigation costs. 


fe) Absolute and relative differences in costs, returns, and input use 
between irrigated and dryland crop sectors. 


fo) Average value of water used for irrigation (on a per-acre basis, a 
per-unit yield basis, and a per unit of water applied basis). 


fo) Revised cost/returns, input use, water values, and breakeven values 
due to factor adjustments in price and/or selected inputs (per acre, 
per unit of yield, and per unit of water applied). 


IPDS STRUCTURE, DATA, AND COMPUTER REQUIREMENTS 


IPDS consists of a series of base-year crop spreadsheets which may be used 
to generate customized spreadsheet displays through a series of Lotus 
macros. 


IPDS Structure 


Initial (1984) State-level acreage, production, price, and budget data are 
assembled in the base-crop spreadsheets (fig. 1, I). Base-year spread- 
sheets have been prepared for 10 dryland and 11 irrigated crops, stored on 
a hard disk. Filenames for base-year spreadsheets are listed in table l. 


A value spreadsheet is maintained on the hard disk for each base spread- 
sheet (fig. 1, II). Value spreadsheets are identical to base spreadsheets 
except that all spreadsheet cells containing formulas have been converted 
to computed values. This transformation is necessary to make effective use 
of information across multiple crop spreadsheets. Several macros use value 
spreadsheets to perform analysis across spreadsheets and to assemble 
selected data for display purposes. 


Additional spreadsheet files contain specialized IPDS macros, maintained on 
the hard disk (fig. 1, III-A and III-B). These macros are used to compare 
selected statistics across crops, to compute differentials in key statis- 
tics across crops, and to conduct comparative static evaluation of key 
statistics across scenarios using selected parameter adjustments. 


Customized spreadsheet displays are designed to give the user considerable 
flexibility for reporting purposes (fig. 1, IV). Spreadsheet displays 
compare selected statistics across crops, dryland and irrigated sectors, 
and user-specified scenarios. 


Figure 1--Schematic overview of Ipps 
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Table 1--IPDS base-year spreadsheet filenames by crop 


ae 


Spreadsheet filename 


Crop Irrigated Dryland 
Wheat IPDS501A IPDS501B 
Corn for grain IPDS502A IPDS502B 
Sorghum for grain IPDS503A IPDS503B 
Soybeans IPDS504A IPDS504B 
Cotton IPDS505A IPDS505B 
Rice IPDS506A 

Oats IPDS507A IPDS507B 
Barley IPDS508A IPDS508B 
Corn silage IPDS509A IPDS509B 
Alfalfa hay IPDS510A IPDS510B 
Other hay TPDSOLIA LPDSSLi5 
al onl cena Ee eens si i Pa neo de 8 a 

IPDS Data 


IPDS State-level budget inputs include harvested acres, harvested yields, 
crop prices (primary and secondary), water applied, water purchase costs, 
energy and labor costs (irrigated and dryland), other nonirrigation 
variable costs (pre- and post-harvest), irrigation equipment costs, and 
other fixed machine costs (pre- and post-harvest). Acreage, yield, price, 
and water use data are based on the 1984 production year. Field operations 
and material input use are representative of 1982-84 technology. 


IPDS crop enterprise data were initially drawn from representative State- 
aggregate 1982 Firm Enterprise Data System (FEDS) budgets, else to 1984 
using price indexes in Agricultural Prices - 1986 Summary (2). 1/ FEDS 
budget data were based on COP surveys, conducted jointly by ERS and the 
National Agricultural Statistics Service (NASS) over the 1982-83 production 
years. Technology data for the 1982 FEDS budgets were supplemented with 
crop budget data from the Soil Conservation Service (SCS) and numerous 
State-level crop reports prepared by land-grant universities and State 
extension offices. For a detailed discussion of the crop budget database, 


see Documentation for 1982 USMP Crop Enterprise Budgets (1). 


1/ Underscored numbers in parentheses refer to sources cited in the 
References. 


U.S. Agricultural Statistics, prepared annually by NASS, served as the 
primary source for 1984 control totals for acreage, production, and yield 
data as well as crop price data (3). The 1982 U.S. Census of Agriculture 
provided 1982 dryland/irrigated acreage proportions, which were applied to 
1984 total acreage (4). The 1984 Farm and Ranch Irrigation Survey (FRIS) 
provided farm-level data specific to irrigated production, including water 
application rates, irrigated yields and acreage, irrigation energy costs 
(weighted by application system and water source), and irrigation water 
purchase costs (5,6). FRIS, prepared by the Bureau of the Census, U.S. 
Department of Commerce, in cooperation with the Resources and Technology 


Division, ERS, was based on a sample of irrigated farms surveyed in the 
1982 national agricultural census. 


IPDS Computer Requirements 


IPDS was developed in Lotus 1-2-3 for use on an IBM personal computer (PC). 
Users need the following PC components and software to have full access to 
IPDS spreadsheets: 


fe) An IBM microcomputer (or compatible) with hard disk capacity of at 
least 30 megabytes (MB). IPDS uses 15.5 MB of permanent disk space to 
store base spreadsheets and 7 MB of permanent disk space to store 
value spreadsheets (table 2). Macro files require less than 0.1 MB. 
Temporary working files require an additional 0.4 MB of disk storage. 


O Two floppy disk drives, preferably one of which is a high-density disk 
drive (1.2 MB). 


fe) 1.5 MB of memory (0.64 MB conventional, with the remainder as expanded 
memory) . 
fo) Lotus 1-2-3 software, version 2.0 or higher. 


The user may elect to work with portions of the system, thereby minimizing 
permanent file storage requirements. Single base-crop spreadsheets may be 
processed individually. Value spreadsheets are required only when using 
macros that perform analysis across crops to generate customized multicrop 
displays. 


Under the current system configuration, customized display files are stored 
on diskette in drive A. Output stored directly on diskette helps organize 
multiple project analyses. A high-density disk drive is advantageous for 
display applications that reference multiple spreadsheets and column 
variables, given the potential size and number of customized displays that 
may be generated. In addition, a double disk-drive system is currently 
required for selected display applications: one for input data and one for 
output data. A single disk-drive system could be used, but only if appro- 
priate adjustments were made in macro file references. 


The system’s internal memory requires 1.5 MB to access and process a single 
spreadsheet. Expanded memory requirements may be reduced by eliminating 


selected sections of the base-year spreadsheets or transferring sections to 
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Table 2--Disk storage requirements for IPDS spreadsheets 


Se EERE 


Item Irrigated Dryland _ Total 
Number 
IPDS base spreadsheets i 10 Zu 
Megabytes 
Bytes per base 
spreadsheet 0.88 0.54 -- 
Subtotal O08 5.40 15.08 
Number 
IPDS value spreadsheets dnl: 10 vas 
Megabytes 
Bytes per value 
spreadsheet 0.40 On) -- 
Subtotal 4.40 2400 6.90 
Macro files -- -- 0.505 
Temporary/working files -- -- 0.40 
Total bytes 14.08 1290 22.43 


-- Not applicable. 


new spreadsheet files. These options, however, involve tradeoffs. Elimi- 
nating sections of the spreadsheets will result in information loss, while 
partitioning spreadsheet files will require larger and more complex macros 
to make effective use of all spreadsheet information. 


BASE SPREADSHEET STRUCTURE AND VARIABLE DEFINITIONS 


Base-crop spreadsheets provide a uniformly organized database across crops. 
Each crop spreadsheet contains statistics on base-year (1984) acreage, 
yield, price, input use, and production cost. Spreadsheets for irrigated 
crops include additional data on irrigation input use, costs, and returns. 
Table 3 outlines the base spreadsheet structure for dryland and irrigated 
crops. 


Row Structure 


Rows within base spreadsheets are organized into four sections. Sections 
one through four each contain 62 rows consisting of two parts. Part one 
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Table 3--Row structure of IPDS base crop spreadsheets 
ee ee a er eee 


Spreadsheet column/row 


range identifiers 


Row sections Irrigated Dryland 
Base values: 
By State All. .CcW58 All. .BF58 
By region A60. .CW74 A60..BF74 
Adjusted values: 
By State A/S CW 22 Avo Bel? 2 
By region A124..CW138 A124. .BF138 


Absolute comparison of 
base and adjusted values: 
By State A139..CW186 A139. .BF186 
By region A188..CW202 A188. .BF202 


Percent comparison of 

base and adjusted values: 
By State A203..CW250 A203. .BF250 
By region A2Z52..9CW266) “—A252725 BE266 


provides State-level data for each of the 48 conterminous States. Part two 
provides regional weighted-average values for 14 multi-State production 
regions. Production regions include the 10 U.S. Department of Agriculture 
(USDA) farm production regions and subregions for the Mountain and Pacific 
States. Table 4 lists IPDS production regions and associated States. 
Appendix I shows a sample row label "stub" for section one of each spread- 
sheet. 


Section one of each spreadsheet contains the base-year input data and com- 
puted statistics for 1984. Section two consists of user-specified adjust- 
ment factors, adjusted base input data, and adjusted computed statistics. 
This section permits the user to apply percentage adjustments to base input 
data without extensive data entry. For example, a 10-percent reduction in 
crop price may be incorporated by applying a factor of 0.90 to the crop 
price variable, while a 10-percent increase in energy costs may be incor- 
porated by applying a factor of 1.10 to the irrigation energy cost vari- 
able. State-specific adjustment factors may be applied to one or more 
input variables. 


Section three represents the absolute differentials between values in 
sections one and two: adjusted variable values minus base variable values. 
Section four represents percentage differentials: the ratio of differ- 
ential values from section three to base variable values from section one. 
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Table 4--States by IPDS production region 


Region Region 

ID Name States ID Name 

Ol Northeast Connecticut 08 Southern Plains 
Delaware 
Maine 
Maryland 09 Mountain States 
Massachusetts 


New Hampshire 
New Jersey 
New York 
Pennsylvania 
Rhode Island 
Vermont 
02 Lake States Michigan 
Minnesota 
Wisconsin 
03 Plinois 
Indiana 
Iowa 
Missouri 
Ohio 


Corn Belt 


04 Kansas 
Nebraska 
North Dakota 


South Dakota 


Northern Plains 


05 Appalachia Kentucky 
North Carolina 
Tennessee 
Virginia 
West Virginia 


Alabama 
Florida 
Georgia 
South Carolina 


06 Southeast 


Arkansas 
Louisiana 
Mississippi 


O07 Delta States 


Mountain States I 


Mountain States II 


10 Pacific States 


Pacrticocacese. 


Pacific States II 


States 


Oklahoma 
Texas 


Arizona 
Colorado 
Idaho 
Montana 
Nevada 
New Mexico 
Utah 


Wyoming 


Colorado 
Idaho 
Montana 
Utah 


Wyoming 


Arizona 
Nevada 
New Mexico 


California 
Oregon 


Washington 


Oregon 
Washington 


California 


Variable (Column) Definitions 


Variable items within each spreadsheet are organized by column. Base 
spreadsheets for dryland crops consist of 59 columns (A..BF), while base 
spreadsheets for irrigated crops consist of 75 columns (A..CW). Variable 
(column) definitions for each spreadsheet are of four types: 1) spread- 
sheet identification, 2) base-year input variables, 3) column variables for 


adjustment factors, and 4) column variables representing calculated returns 
and breakeven statistics. 


Columns A through D are reserved for the following descriptive information: 
spreadsheet title (crop, dryland/irrigated), filename, and State and region 
row-labels. Column E provides the source budget identification (ID) number 
by State. An asterisk in column E indicates that row data for that State 
represent a weighted average of multiple budgets. Multiple budgets were 
developed to reflect cost/return differences for alternative crop vari- 
eties, rotation considerations (fallow/crop), and sub-State regional dif- 
ferences. Multiple budget base-year data are included in spreadsheets for 
dryland and irrigated wheat, dryland barley, and rice. Column F includes a 
budget flag (value = 1 or 0) signaling the availability of a State's budget 
data. The budget flag is used in generating computed values. 


Data on acreage, yield, production, input use, and various budget cost 
components are entered in spreadsheet section one. Adjustment factors are 
entered in spreadsheet section two. Return and breakeven statistics are 
computed in both sections one and two (section one for base-year values and 
section two for adjusted values). 


Table 5 provides a detailed listing of IPDS spreadsheet variables by column 
identifier. Column variables are organized in 23 sections for easy refer- 
ence. Table 6 lists those variables and column identifiers that are 
related to input data, not computed values. Table 7 identifies those input 
data items and column identifiers that can be modified through user- 
specified adjustment factors. Appendix II lists formulas for computed 
variables. 


SYSTEM OPERATION AND IPDS MACROS 


Operations may be performed within a single base-crop spreadsheet using 
standard Lotus commands/functions or across multiple spreadsheets using 
selected IPDS macros. Because most IPDS applications will involve 
comparisons across multiple crop spreadsheets, the discussion focuses on 
the use of macros for multiple spreadsheet applications. Single spread- 
sheets may be appropriate, however, when the desired analysis involves a 
limited number of crops, and/or PC hardware configuration limits full use 
of IPDS macro capabilities. When operating within a single spreadsheet, 
the user is cautioned not to save the adjusted spreadsheet on permanent 
disk under its original name because user-specified adjustments will 
override default values. 


Table 5--IPDS variable definitions 


Column section/Lotus column 
ID/IPDS column title Unit 


1. Spreadsheet descriptive information: 

A Title (crop, irrigated/dryland) 
filename ("IPDS5xxA/IPDS5xxB") 
where (xx) represents a crop ID # 

B Row numbers 

C Row section descriptions 

D State/region identifications 


2. Budget identifier: 
E Budget ID number 


3. Budget flag: 
F Budget = 1, no budget = 0 


4. Crop acres: 


G FEDS 1982 representative acres (1,000) 
H 1984 IPDS harvested acres (only 

for States with budgets) (1,000) 
I 1984 IPDS harvested acres (all States) (1,000) 
J Acreage adjustment factor (sty) 


5. Crop yield/production data, primary crop: 


K 1982 FEDS budget yields (unit/ac. ) 
L 1984 IPDS harvested yields (unit/ac.) 
M Yield adjustment factor (x. xx) 
N Total production (1,000) 


6. Crop price, primary crop 
O Season average crop price 


(Agricultural Statistics) GS /enise yids) 
P Crop price adjustment factor (xox) 


7. Production costs: 


Q Total variable cost (TVC) ($/ac.) 
R Pre-harvest energy cost, nonirrigation ($/ac.) 
S Post-harvest energy cost, nonirrigation ($/ac.) 
T Total energy cost, nonirrigation ($/ac.) 
U Energy cost adjustment factor, nonirrigation (x.xx) 
V Other variable operating cost, nonirrigation ($/ac.) 
W Adjustment factor for other 
variable operating cost, nonirrigation Ochex) 
X Total fixed cost ($/ace) 
Y Land charge ($/ac.) 
Z Land charge adjustment factor CxFEx) 
AA Other fixed cost, nonirrigation (S$/ac®) 
AB Factor for other fixed cost, nonirrigation (ce) 
AC Total production cost (TC) (S/ac.) 
Continued: - 
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Table’ 5--IPDS variable definitions--Continued 


Column section/Lotus column 
ID/IPDS column title nt 


8. Returns, primary crop (excluding secondary outputs): 


AD Gross revenue (S/ach) 
AE Return over TVC ($/ac.) 
AF Return to land and management (RTLM) @Sfac?g) 


9. Cost/return statistics per unit yield 
(excluding secondary outputs): 


AG Variable cost per unit yield ($/unit yld.) 
AH Total cost per unit yield (Sfunittyld?) 
AI Return per unit yield over TVC Syaniteay Las) 
AJ RTLM per unit yield ($/unit yld.) 


10. Breakeven statistics (excluding 
returns to secondary outputs): 
AK Crop price change required to 


break even at TVC ($/unit’ yids) 
AL Percentage change in price needed 

to break even at TVC Cex) 
AM Breakeven crop price at TVC é$/uniery ids) 
AN Yield change required to 

break even at TVC Cunt sy ld /acw) 
AO Percentage change in yield 

required to break even at TVC (.xx) 
AP Breakeven yield at TVC (unit s1d./ae) 

11. Secondary outputs/prices: 

AQ Yield for secondary output Cunit yide/ac') 
AR Adjustment factor for 

secondary output yield aon) 
AS Price for secondary output ($/unit-yld2) 
AT Adjustment factor for 

secondary output price (XIX) 
AU Total value of secondary output (S'fac’ a) 


12. Returns (including secondary outputs): 


AV Gross revenue ($/ac.) 
AW Return over TVC (Sia) 
AX RTLM (SY acu) 
AY Return per unit yield over TVC (S/unit yld.) 
AZ RTLM per unit yield ($/unit. yid.) 

Continued- - 


Lil 


Table 


5--IPDS variable definitions --Continued 


Column section/Lotus column 
ID/IPDS column title 


13. Breakeven statistics (including 
secondary outputs): 


BA 


BB 


BC 
BD 


BE 


BF 


Crop price change required 

to break even at TVC 
Percentage change in price 

required to break even at TVC 
Breakeven crop price at TVC 
Yield change required 

to break even at TVC 
Percentage change in yield 

required to break even at TVC 
Breakeven yield at TVC 


Unit 


($/unit yld.) 


xx) 


(Sjami gay td7) 


Cunie ylds/ ae 3) 


(.%x) 


(uni teylds /ace ) 


Irrigation statistics (irrigated crop spreadsheets only) 


14. Irrigation water use: 


BG 
BH 
BI 


Per-acre water application 
Adjustment factor for water application 
Total water use 


15. Purchased irrigation water: 


BJ 


BK 
BL 
BM 
BN 


BO 
BP 


Purchased water cost per acre for 

acreage using purchased water 
Purchased water price 
Adjustment factor for purchased water price 
Percentage of acres using purchased water 
Adjustment factor for percentage 

of acres using purchased water 
Weighted purchased water cost per acre 
Total acres using purchased water 


16. Irrigation energy, lube and repair costs: 


BQ 
BR 
BS 
BT 
BU 
BV 


Irrigation 
Adjustment 
Irrigation 
Adjustment 
Irrigation 
Adjustment 


energy cost 

factor for irrigation energy cost 
lube cost 

factor for irrigation lube cost 
repair cost 

factor for irrigation repair cost 


17. Irrigations Labor: 


BW 
BX 
BY 
BZ 
CA 


Irrigation labor use 


(af/ac.) 


Coes) 
1G) 


($/ac.) 
($/aft) 
CZaxx) 

COXx) 


(xxx) 


($/ac.) 
(1,000) 


($/ac.) 


(x. xx) 


($/ac.) 


Cx.) 


($/ac.) 


Cxexad) 


(man-hrs./ac. ) 


Adjustment factor for irrigation labor use (x. xx) 
Wage rate ($/man-hr. ) 
Adjustment factor for wage rate (xX. xx) 
Irrigation labor cost per acre Sack’) 

Continued- - 
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Table 5--IPDS variable definitions --Continued 

Se ee ee ee ee eee 
Column section/Lotus column 

ID/IPDS column title Unit 


Loy irrigation costs. (totals). 


CB Total variable irrigation cost (S7ace) 
CC Total fixed irrigation equip. cost ($/ac.) 
CD Adjustment factor for fixed 

irrigation equipment cost Caxe.o:4) 
CE Total irrigation cost (S7ac.) 


19. Share of irrigation costs assumed by 
landlord (share-rental arrangement): 
CF Share of fixed irrigation cost (Ces) 
CG Share of variable irrigation cost Cx) 


20. Irrigation cost ratios: 


CH Ratio of irrigation energy costs to TVC (.xx) 
CI Ratio of total variable irrigation cost to TVC (.xx) 
CJ Ratio of total irrigation cost to TC ax) 


21. Irrigation cost and yield per 
acre-foot of water applied: 

CK Total variable irrigation cost per acre-foot (S/acl) 

CL Total irrigation cost per acre-foot ($/af) 

CM Yield of primary crop per acre-foot (uni tayidy /al) 


22. Value of production and breakeven 
water cost (excluding secondary output): 


CN Value of production per acre-foot n/t) 
CO Variable irrigation cost change 

required to break even (Siac) 
CP Percentage change in variable irrigation 

cost per acre-foot to break even oe) 
CQ Breakeven water cost (given crop price) ($/af) 


CR Ratio of purchased water price to 
breakeven total variable irrigation 
cost (water cost) per acre-foot Meio 


23. Value of production and breakeven water 
cost (including secondary output): 


CS Value of production per acre-foot ($/af) 
CT Variable irrigation cost change 

required to break even Cov at) 
CU Percentage change in variable irrigation 

cost per acre-foot to break even ex) 
CV Breakeven water cost (given crop price) (S/at) 


CW Ratio of purchased water price to 
breakeven total variable irrigation 
cost (water cost) per acre-foot an S23) 


i 


Table 6--IPDS input data items 


Lotus 

column 
ID IPDS column title Unit 
I Crop acres (1,000) 
L Primary crop yield (units/ac. ) 
O Primary crop price ($/unit) 
R Pre-harvest energy cost, nonirrigation (S/acr ) 
) Post-harvest energy cost, nonirrigation CSifacls) 

V Other variable operating costs, 

nonirrigation (S/aca,) 
ye Land charge (ofan) 
AA Other fixed cost, nonirrigation €o/ac_) 
AQ Yield for secondary output (units/ac. ) 
AS Price of secondary output (S/uni t, yide) 
BG Per-acre water application (AF/ac. ) 
BK Purchased water price (S/afa) 
BM Percent of acres using purchased water (xx) 
BQ Irrigation energy cost (SV dace) 
BS Irrigation lube cost ($/ac.) 
BU Irrigation repair cost (3 /acr) 
BW Irrigation labor use (man-hrs./ac. ) 
BY Irrigation labor wage rate ($/man-hr. ) 
CC Fixed irrigation (equip.) cost ($/ac:) 
CF Landlord share of fixed irrigation cost (.xx) 
CG Landlord share of variable irrigation cost Cease ) 


Multispreadsheet Analysis and IPDS Macros 


Analysis across spreadsheets may involve three types of comparisons using 
prepared IPDS macros. IPDS macros are stored on permanent disk under the 
filenames COMP, DIFF, SCENAR, SCENARI, and SCENARD. These macros generate 
comparisons of selected statistics across crops, across dryland and 
irrigated sectors by crop, and across scenarios that incorporate selected 
parameter adjustments by crop. Macros may be used to evaluate various 
cost, return, water value, and/or breakeven statistics across crop spread- 
sheets by State and region. 


Operation of some IPDS macros requires that base spreadsheet cell contents 
be converted to values. Macros SCENAR, SCENARI, and SCENARD reference base 
spreadsheets directly and convert cell entries to parameter values within 
the macro. Macros COMP and DIFF reference base "value" spreadsheets 
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Table 7--IPDS variables incorporating user specified 
adjustment factors 


Lotus 
column 
ID LPDS= column title Unit 
J Crop acreage (1,000) 
M Crop yield (primary output) CUunLe7ac’s) 
P Crop price (primary output) CS7.ac.) 
U Energy cost per acre (nonirrigation) Co ae.) 
W Other variable operating 
cost (nonirrigation) Coach) 
Ze Land charge CoLace) 
AB Other fixed cost (nonirrigation) tS/ac.) 
AR Crop yield (secondary output) (unit/ac. ) 
AT Crop price (secondary output) CS face) 
BH Water application CO aCe) 
BL Purchased water price ($/AF) 
BN Share of acreage using 
purchased water Caxx) 
BR Irrigation energy cost US fac.) 
BT Irrigation lube cost Cana 8) 
BV Irrigation repair cost CS7dc.) 
BX Irrigation labor use (man-hrs./ac. ) 
BZ Irrigation wage rate CS7 irs) 
CD Fixed irrigation cost (Sfac™:) 


created for each crop and stored on permanent file. Base and value 
spreadsheets are identical except that formulas are replaced with their 
value equivalents within value spreadsheets. To maintain consistency in 
filenaming, value spreadsheet names are preceded by a "V." For example, 
V501A is the value filename for irrigated wheat. 


Comparisons Across Crops 


To compare selected spreadsheet statistics across crops (or within a single 
crop), the user invokes the macro COMP. Using data stored in value files, 
the macro formulates a customized display (table 8). The user specifies 
crop(s) and variable(s). The display is organized by variable and crop, 
with alternative crops displayed in adjacent columns by variable. Column 
headings indicate the variable name, the Lotus column (letter) identifier 
from the base spreadsheets, and the crop name. Row labels, which identify 
data by State and region, are similar to those in the base-crop spread- 
sheets. Appendix III-A lists the COMP macro command stream. 
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Comparisons Across Dryland and Irrigated Sectors 


For comparisons across dryland and irrigated sectors by crop, the user 
invokes the macro DIFF. Using value spreadsheets, this macro generates 
absolute and percentage differences between dryland and irrigated variable 
values by crop. Absolute differences represent the value of the irrigated 
variable minus the corresponding dryland value. The percentage difference 
is computed as the ratio of the absolute difference to the corresponding 
dryland value. 


The user identifies the crop(s) and variable(s) to be evaluated and 
displayed. Absolute differences and percentage differences are processed 
by variable. In the customized display (table 9), four columns of informa- 
tion are presented by crop/variable combination: irrigated value, dryland 
value, absolute difference, and the percentage difference. The column 
headings indicate the crop, variable name, Lotus column (letter) identifier 
from the base spreadsheets, and the column information. State and region 
row labels are similar to those in the base spreadsheets. Appendix III-B 
lists the DIFF macro command stream. 


Comparisons Across Scenarios 


The final macros, SCENAR, SCENARI, and SCENARD, perform comparisons across 
input adjustment scenarios for selected variables and crops. SCENAR is 
used to make comparisons across scenarios for dryland crops and irrigated 
crops. SCENARI may be used for comparisons across scenarios for irrigated 
crops only, while SCENARD may be used for similar comparisons for dryland 
crops only. 


Scenario analysis allows the user to conduct sensitivity analysis in which 
one or more policy parameters are adjusted. Adjustments may be expressed 
as values overriding base variable values or as parameter adjustments 
applied to selected base values. Adjustments for each scenario are 
specified by State and variable within a scenario input spreadsheet. The 
user prepares the input spreadsheet before invoking macros SCENAR, SCENARI, 
or SCENARD. 


Only output from SCENAR involves three displays. In display one, output is 
organized by scenario, crop, and variable (table 10). User-specified vari- 
ables by scenario, for a given crop, are organized in adjacent columns. 
SCENAR display two (optional) incorporates features of COMP, in which out- 
put is organized by scenario and variable, and values by crop are position- 
ed in adjacent columns (table 11). SCENAR display three (optional) incor- 
porates features of DIFF, in which output is organized by crop and variable 
for a given scenario, and corresponding dryland and irrigated values are 
positioned in adjacent columns (table 12). Column headings for the 
scenario displays indicate the crop, variable name, Lotus column (letter) 
identifier from the base spreadsheet, and the scenario identifier (SNxx). 
State and region row labels are similar to base spreadsheets. Appendix 
III-C lists the macro command stream for SCENAR. Command streams for 
SCENARI and SCENARD are similar to those for SCENAR, except that SCENARI 
and SCENARD do not include the command streams for the additional displays. 
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Print Macros 


Print macros are available to print standardized spreadsheets and 
customized displays. Standardized spreadsheets--base crop spreadsheets, 
value spreadsheets, and adjusted base spreadsheets--may be printed using 
the BPRINT macro stored on permanent file. The macro is designed to print 
all four sections of each spreadsheet. Appendix IV lists the command 
streams for the BPRINT macro. 


Lotus command streams used to print customized displays are incorporated as 
subroutines in the COMP, DIFF, SCENAR, SCENARI, and SCENARD macros. These 
macros allow the software to display variable spreadsheet sizes. Column 
dimensions of each display are determined by the number of crops, vari- 
ables, and scenarios referenced. Users may print selected row sections 
(I-IV) of the customized displays. 


MACRO PROCEDURES 


IPDS macros for generating customized spreadsheet displays were developed 
using the command language available in version 2.1 of Lotus 1-2-3. IPDS 
macros were developed to automate analysis across crop spreadsheets and the 
processing of standardized reports while minimizing user input tasks. To 
minimize user input, some compromise in macro processing time was neces- 
sary. Macros nonetheless provide considerable efficiency in processing 
IPDS spreadsheet data for analysis and display purposes. 


Processing time varies by macro. The COMP macro generally requires the 
least processing time, SCENAR the most. Processing time for each macro run 
varies with the amount of output the user requests when the desired macro 
is activated. Processing time will also vary somewhat depending on the 
computer configuration. IPDS currently operates on an IBM PS/2 80. Each 
macro is also designed so that the user specifies all input before acti- 
vating the macro. This enables the user to leave the PC unattended while 
the macro program is in progress. 


All five macros store output on the diskette in drive A. We recommend that 
the user define a high-density disk drive as drive A if output is expected 
to be large. The user specifies the name of the output file. The output 
filename is limited to eight characters and must differ from existing file- 
names on the target diskette. To avoid potential errors, output filenames 
and user input information should be made with the "Caps Lock" key on. At 
no time is it necessary for the user to save output files because the macro 
automatically saves the output file. When the macro operations are 
complete, the user may retrieve the output file using normal Lotus file 


retrieval procedures. 


After retrieving a macro or after a macro has finished processing its 

tasks, the user should not save the macro using its original name. Saving 
a macro under its original name can damage the original macro by incorpor- 
ating "counter" parameters that apply only to options chosen with the most 


zy 


recent scenario. If a second copy of a macro is desired, use the DOS copy 
command. 


What follows is a step-by-step user's guide for each of the three macros: 
COMP, DIFF, and SCENAR. (Procedures for SCENARI and SCENARD are similar to 
SCENAR.) The discussion assumes that the user has entered Lotus 1-2-3 and 
is familiar with file retrieval procedures. For a detailed listing of 
macro command streams, see Appendixes III-A to III-C. 


Macro COMP 


The macro COMP, used to compare selected variables across crops, extracts 
the values for these variables from value spreadsheets and displays the 
output by variable across crops (see table 8). Here is how to operate the 
macro COMP: 


fo) Insert a formatted high-density diskette in drive A. Macro output is 
to be stored on this diskette. 


Oo Retrieve the file COMP from the Lotus spreadsheet directory on the 
hard disk, (Cedrive):. 


fo) Activate the macro by simultaneously pressing the "Alt" and "A" keys. 
fo) Follow the instructions appearing at the top of the screen. 


The macro queries the user for input information. Inputs include: 1) the 
output filename, 2) selection of output variables, 3) selection of irri- 
gated and/or dryland sectors, and 4) selection of crops to be included in 
the analysis. The first query is: 


fo) ENTER TITLE OF OUTPUT FILE: 


The user should type in an appropriate output filename that identifies the 
project for which the analysis is being performed. The output filename 
should follow Lotus filenaming rules. After typing the output filename, 
enter the filename with the "Return" key. The second query is: 


fo) ENTER COLUMN LETTER OR X IF FINISHED: 


This query refers to the variables to be compared across crops. A complete 
list of variables with corresponding column ID’s is found in table 5. The 
user determines which variables from this list to include in the analysis, 
types the corresponding column letter (ID) of the first variable, and 
enters the ID of the variable with the "Return" key. The macro responds 
with the following query, asking whether the user wants the variable being 
compared to represent irrigated or dryland production: 


fo) IRRIGATED(A) OR DRY(B): 


The letter "A" should be typed and entered if the irrigated spreadsheet is 
desired, "B" if the dryland spreadsheet is desired. The macro repeats the 
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above two queries, allowing the user to specify additional variables to be 
included in the analysis. Variables from table 5 may be entered in any 
order. If irrigated and dryland data are desired for a specific variable, 
the variable must be entered twice. For instance, if irrigated and dryland 
values for "breakeven yield at total variable costs" are desired in the 
analysis, the entry would be BF{Enter}, A{Enter), BF{Enter}, B{Enter)}. 

When all desired variables have been entered, the letter "X" (in caps) 
should be typed and entered in response to the following query: 


fe) ENTER COLUMN LETTER OR X IF FINISHED: 


The final queries prompt the user to indicate for which of the 11 crops the 
above variables are to be compared. Each query indicates the crop to be 
included in the analysis by referencing the crop ID number (for example, 
#501-#511). The final query is: 


fo) WORKSHEET #501 Y OR N: 


After responding yes (Y) or no (N), the user is prompted to make a similar 
response for the remaining 10 crops. Table 1 lists each of the 11 crops 
with their corresponding ID number. 


Once the crop ID’s are entered, the macro automatically begins processing 
and the user is free to leave the PC unattended. A message will appear on 
the screen signifying that a macro is in progress. When the macro finishes 
processing, the output file is automatically stored on the diskette in 
drivers, 


After retrieving the output file, the user can generate a printout by 
activating a print macro stored within the output file (the print macro was 
written to the output file by the macro COMP). The print macro is 
activated by simultaneously pressing the "Alt" and "P" keys. Before 
activating the print macro, the user should make sure the printer is 
stocked with wide (8% x 14 inch) paper and that the paper is aligned so 
that printing begins just below the paper perforation. 


After activating the print macro, the user is asked which section of the 
output file is to be printed. The print query is: 


fo) ENTER SECTION TO PRINT: 


The sections to be printed refer to the four row sections (see table 3). 
Section one refers to State and regional base-year values. Section two 
refers to State and regional adjusted values. Sections three and four 
refer to State and regional absolute and percentage differences between 
sections one and two. The user may print all sections or each section 
separately except for sections three and four, which are printed as a set. 
After determining which sections are desired, the user responds to the 
above query by entering either a "1" for section one; "2" for section two; 
"3" for sections three and four; "12" for sections one and two; "23" for 
sections two, three, and four; or "123" for sections one, two, three, and 


FOUt: 


ee) 


If desired outputs are not contiguous (as in the case for sections one, 
three, and four), they must be printed separately. This operation involves 
retrieving the output file twice; once to print section one, and once to 
print sections three and four. The user must retrieve the output file 
twice so that print parameters in the macro are automatically reset to the 
default values. 


Macro DIFF 


The macro DIFF is designed to provide comparisons across dry and irri- 
gated values for selected variables by crop. The output for each compar- 
ison of variables contains the irrigated base value, the dryland base 
value, the difference between irrigated and dryland base values (Irr-Dry), 
and the percentage difference between irrigated and dryland base values 
((Irr-Dry)/(Dry)) (see table 9). These comparisons can be performed for 
all crops except rice, which has no dryland spreadsheet, in a single macro 
run. If a large number of variables are selected for comparison, however, 
the number of crops included in a single macro run may be limited because 
of the Lotus column limit (columns A-IV). 


Like the COMP macro, DIFF extracts the values for the selected variables 
from the value spreadsheets and stores the output file on diskette in 
drive A. Because DIFF computes two comparison values for each variable, 
(Irr-Dry) and ((Irr-Dry)/(Dry)), processing time for DIFF will be greater 
than for COMP if there are an equal number of selected variables and crops. 
DIFF is set up such that any variable may be selected for comparison, and 
the combination of variables compared does not have to be the same across 
crops in a single macro run. To operate DIFF, follow these steps: 


fo) Insert a formatted high-density diskette in drive A. 
fo) Retrieve the Lotus file DIFF, stored on the hard disk (C drive). 
fo) Activate DIFF by simultaneously pressing the "Alt" and "A" keys. 


fo) Respond to the query ENTER TITLE OF OUTPUT FILE: 


The user types in an appropriate output filename. The filename should 
reference the project for which the analysis is being performed. The user 
then responds to the following query to identify those crops for which the 
macro will compare irrigated and dryland values: 


fo) ENTER FILE # OR X IF FINISHED: 


File numbers range from 501 for wheat to 511 for other hay, as listed in 
table 1. 


After the user enters the first crop ID number, the macro responds with the 
following request for the variable (column) ID's to be compared across 
dryland/irrigated values: 


fo) ENTER COLUMNS, X IF FINISHED, OR "SAME" IF SAME AS LAST FILE: 
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Each variable ID (from table 5) is typed and then entered by pressing the 
Return key. ID's of variables are entered consecutively. After all 
variable ID's are entered, type an X (in caps) to signal the macro for the 
next query. The macro then asks the user to identify an additional crop 
for which the macro will perform comparisons. Respond to the query: 


fo) ENTER FILE # OR X IF FINISHED: 


After the user enters the second crop ID number, the macro again requests 

variable (column) ID’s. If these are the same as the variables considered 
for the first crop, the user should type and enter SAME. If variables for 
the second crop are different from those for the first crop, each ID will 

need to be entered as described previously, ending with the user entering 

anvX* 


If a third crop is to be included in the analysis, repeat the procedure. 
Otherwise, enter a final X to start macro processing. The user may leave 
the PC unattended while the macro is processing. The output file will 
automatically be saved on diskette in drive A. A print macro is included 
with the output file. The same procedure used to print COMP output should 
be followed when printing DIFF output. 


Macros SCENAR, SCENARI, and SCENARD 


SCENAR, SCENARI, and SCENARD are the most comprehensive macros. They allow 
the user to evaluate cost and input use adjustments in a comparative static 
framework. The SCENAR macro also incorporates features of both COMP and 
DIFF so that the user can make comparisons across crops and across 
irrigated and dryland sectors for scenarios including parameter adjust- 
ments. Parameter adjustments may be specified as either values overriding 
base values (in section 1 of base spreadsheets) or as factor adjustments 
(section 2) applied to the base values. The user is allowed to apply 
multiple parameter adjustments to base-year data, subject to the system's 
memory limits. The macros compute revised spreadsheet statistics for each 
crop included in the analysis. The macros then extract user-specified 
‘output variables to separate "intermediate" spreadsheet files on the hard 
disk. The macros use the intermediate files to generate the final output 
file. The final output file contains the comparative statics of interest 


Lorthne user. 


A single run of either SCENAR, SCENARI, or SCENARD may incorporate several 
scenarios, each containing any combination of parameter adjustments and 
crops. When multiple scenarios are included in a single run, output 
variables included in the final output file are constant across scenarios. 
The SCENAR macro is used for applications pertaining to both irrigated and 
dryland crops. For applications limited to irrigated crops, use the 
SCENARI macro. For applications limited to dryland crops, use the SCENARD 


macro. 


Like the COMP and DIFF macros, each of the scenario macros requires the 
user to store the final output file on diskette in drive A. Intermediate 
data files stored on the hard disk during macro processing should not 
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exceed 400K of memory, and are automatically erased before the macro is 
completed. Scenario macros can take a long time to process because a 
single analysis may involve multiple parameter adjustments, crops, output 
variables, and scenarios. To reduce processing time, the user should 
consider which output variables are most relevant for a set of scenario 
parameter adjustments. The user may be required to partition the analysis 
and process the macro more than once (for example, by crop and/or by 
scenario) for some applications. 


Before running the scenario macros, the user must create an input file and 
save the file under an appropriate input filename, such as SCN#1, on 
diskette in drive A. The input file contains information on parameter 
adjustment settings, input and output addresses, and scenario headings. 
The structure of this file is simple, but the user must follow a few 
guidelines exactly: 


fe) For each scenario, decide what factor adjustments are to be included 
in the analysis by crop and which set of variables is to be reported 
in the output file. 


Refer to table 7 for a list of IPDS variables incorporating user-specified 
adjustment factors and to table 5 for a listing of output variables. Table 
1 lists crop ID numbers. For example, spreadsheet filenames for irrigated 
and dryland wheat are IPDS501A and IPDS501B, respectively. The ID number 
for wheat is 501. 


fo) Make a list of the column ID's for each variable "value" adjustment 
and/or factor adjustment to be included in the analysis. 


For a selected variable "value" adjustment (table 5), the variable’s 
address should reference the first row cell of section one of the base-year 
spreadsheet’ (for example; Lll“for“crop yield per acre, “and Y11 ‘for land 
charge per acre). For factor adjustments (table 7) the cell address should 
reference the first row cell of section two of the base-year spreadsheet 
(for example, M/5 for the crop yield adjustment factor, and Z/5 for the 
land charge adjustment factor). 


fo) Make a list of the column/cell addresses for each output variable, by 
base spreadsheet section, desired in the output file. 


Each output variable’s address should reference one section range of 
sections one through four of the base spreadsheet (see table 3). If two or 
more sections of the base spreadsheet are desired as output for an output 
variable, you should list variable/section combinations separately. For 
example, the column/cell address range for output variable "Return over 
Total Variable Cost" (column AW) would be "AW/75..AW138" for section two of 
the base spreadsheet, "AW139..AW202" for section three, and "AW203..AW266" 
for section four. 
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fo) Create the input file using input and output variables as determined 
above. Then save the file under a user-specified filename (SCN#1, for 
example) on diskette in drive A. 


Table 13 illustrates a sample input file. The sample input file includes 
the information required for two scenarios, each containing "factor" 
adjustments (no variable "value" adjustments) to crop price and irrigation 


energy cost per acre. The factor adjustments can be applied to multiple 
crops. 


Users must follow certain format conventions for an input file. Rows 1-8 
are reserved for file descriptive information, which the user determines. 
The file title is included in rows 1-3. To improve readability, variable 
names are placed in rows 5-8, starting with column B. State names are 
placed in column A, rows 12-59. 


The user must place scenario headings in row 10. Short scenario headings, 
such as those shown in table 13, are recommended. Each column parameter 
adjustment within the same scenario must use the same scenario identifi- 
cation. All parameter adjustment columns for a specific scenario must be 
listed consecutively. For example, columns two and three of table 13 refer 
to factor adjustments for scenario one (SN1), while columns four and five 
refer to scenario two (SN2). No blank columns are permitted either between 
parameter adjustment columns for a single scenario or between scenarios. 
Input variable addresses, which indicate the variable adjusted and type of 
adjustment ("factor" or "value"), must be placed in row 11. 


Factor and/or value adjustments begin in column B, row 12. If you are 
using variables modified through factor adjustments, a factor adjustment 
must be entered for each State, Connecticut through Washington (see table 4 
for a list of the 48 conterminous States). If crop prices for only 
Connecticut and Washington, for example, are to be adjusted by a factor of 
+25 percent, then the adjustment value in column B for rows 12 and 59 is 
1.25. The adjustment value for the intermediate cells (States) is 1.0, 
signifying no adjustment to base-year values. 


When the scenario analysis includes adjustments in selected base variable 
"values," adjusted values must be assigned for each State (rows 12-59) for 
which a budget flag exists in column F, section 1 of the base spreadsheet. 


The final input file entries consist of a list of column/cell address 
ranges for each output variable, by base spreadsheet section. The first 
output variable’s address range should begin two rows below the last entry 
in column B, row 61. (Column A is used for a short descriptive title of 
each output variable.) All output variable entries must be contiguous and 
use the address format shown in table 13. After all output variable 
address ranges have been entered, the user defines a "named-range" for the 
output variable address list. To do this, place the cursor on the first 
output variable address, invoke the Lotus menu, then invoke the options 
"Range," "Name," and "Create." At the prompt, enter the name DATA. Again, 
at the prompt, use the "down" arrow key to highlight all address ranges and 
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Table 13--Sample SCENAR input file 


Lotus column ID 


Row A B C D E 

dive |) sue OR inn 7 eee “SNe Ree eee 
1 Sample SCENAR run for User Manual. 
2 
3 Crops included in 

4 scenario analysis: 
5 Wheat, Corn, Sorg., CROP FACTOR CROP FACTOR 
6 Soybeans, Cotton PRICE FOR IRR PRICE FOR IRR 
7 ADJ. FUEL ADJ. FUEL 
See bLLE UD oGNyFAl FACTOR COSTS FACTOR COSTS 
9 
10 SN1 SN1 SN2 SN2 
lal P75 BR75 PyD BR75 
12 Connecticut .90 .95 TAO BoD 
13 Delaware .90 3S) 1h k@ Hes) 
14 Maine .90 585) ih, Ao .85 
15 Maryland .90 799 1. LO .85 
16 Massachusetts .90 25) algal) 285 
17 New Hampshire 590 5) iP, WO) 31333) 
18 New Jersey ao) els) Ih 100) 10) 
19 New York .90 as 1b. U0) 5 
20 Pennsylvania m0) AOD LO OD 
21 Rhode Island .90 195 i ALG 85 
22 Vermont .90 £95 15 ALO) oD 
23 Michigan .90 5) a0 mo) 
24 Minnesota -90 55 AL, 0) .85 
25 Wisconsin .90 sls: 1, Ke 5 toe 
26 Illinois .90 495 IL, dk@ EoD 
27 Indiana .90 .95 10 100) 85 
28 Iowa .90 .95 iL Le) hs) 
29 Missouri .90 0 SIS} tO 5S 
30 Ohio .90 BOS ih ko) asi) 
31 Kansas .90 95 1.10 ={ai5: 
32 Nebraska .90 295) hee .85 
33 North Dakota .90 )5) CO) 55) 
34 South Dakota .90 95 i LO ANS) 
35 Kentucky sXe JS) iO OD 
36 North Carolina 50) 225) dle) st5) 
37 Virginia .90 BID LO B85 
38 Tennessee 9 () 5S) TE, 19) .85 
39 West Virginia .90 39) dO OD) 
40 Alabama .90 295 Tero .85 
41 Florida .90 .95 1k 3K) oD 
42 Georgia .90 95 LO se 
43 South Carolina 290 a95 1K) als 
44 Arkansas 290 395 LO (135) 
45 Louisiana .90 ao LO .85 
46 Mississippi 290 s)5) 1h MO) Go 
47 Oklahoma .90 {95 1 AKO ates) 
48 Texas B30 oS i S10) #35) 
49 Arizona .90 595 1 MO) .85 
50 Colorado .90 95 ee) 85 
51 Idaho 90 =95 MN 0) 5s 
52 Montana .90 528) 1h KO) OS 
53 Nevada 290 os IL No) 3) 
54 New Mexico .90 .95 uo oD 
SOmUEan .90 295 Ue) .85 
56 Wyoming .90 OS 1.10 .85 
57 California .90 .95 Hy, AK 85 
58 Oregon .90 295 dl 51835) 
59 Washington .90 525: 110 .85 
60 
61 RETURN OVER TVC AE75..AE138 
62 B-E CROP PRICE AM75..AM138 
63 B-E WATER COST COV DrCOls 8 
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press Enter. Finally, save this file on diskette in drive A, using a user- 
specified input filename (for example, SCN#1). After saving the input 
file, continue with the following procedures: 


ro) Retrieve one of the scenario macro files stored on the hard disk 
(drive C). (Retrieve SCENAR for analysis involving both dryland and 
irrigated crops, SCENARI for irrigated crops only, or SCENARD for 
dryland crops only.) 


fe) Activate the scenario macro by simultaneously pressing the "Alt" and 
"A" keys. 


The user must respond to three queries before the macro begins processing. 
The first query is: 


fe) ENTER TITLE OF INPUT FILE: 


The user should type in the name of the input filename SCN#1, or any other 
name previously assigned to the scenario input file. The second query is: 


fo) ENTER TITLE OF OUTPUT FILE: 


The user should type in an appropriate output filename, one that references 
the project for which the analysis is being conducted. The third query is: 


fe) ENTER FILE # OR X IF FINISHED: 


The user types in a crop ID number, (for example, 501 for wheat or 508 for 
barley (see table 1)), presses the Enter key, and repeats this procedure 
for each crop to be included in the analysis. After all crop ID numbers 
are entered, the user types in X (in caps), which initiates macro 
processing. The user is free at this time to leave the PC unattended while 
the macro generates the scenario output file. 


If a macro error occurs after the macro begins processing (an ERROR message 
will flash in the upper right corner), end the session by striking the CNTL 
and BREAK keys simultaneously. Before reactivating the macro, the user 
must erase the temporary file (TITLE.WK1) in the subdirectory WKSFILES. 


Output will automatically be saved on diskette in drive A along with a 
print macro. The user should ignore the results indicated on the monitor 
screen. To print the output file, use the same procedure as described 
earlier for the macros COMP and DIFF. The print macro is activated after 
first retrieving the SCENAR output file from the diskette in drive A, and 
then simultaneously pressing the "Alt" and "P" keys. 


The SCENAR macro also saves on each output file a print macro to generate 
COMP and DIFF displays using the information in the output file. (However, 
this is not the case for SCENARI or SCENARD.) After retrieving the SCENAR 
output file, activate the macro that generates COMP and DIFF displays by 
simultaneously pressing the "Alt" and "A" keys. At the prompt, enter 
output filenames for COMP and DIFF output files. Both COMP and DIFF output 
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files are automatically saved on diskette in drive A, along with a print 
macro for each file. After retrieving the COMP output file, a print macro 
is activated by simultaneously pressing the YALE™P andes ry keys. After 
retrieving the DIFF output file a macro (within the output file) will auto- 
matically be activated to complete several file editing procedures. The 
DIFF output file is then automatically saved on diskette in drive A and 
retrieved for the user to review and/or print. Subsequent retrievals of 
the DIFF output file will not activate a macro. To print the, DIFF output 
file, simultaneously press the "Alt" and "P" keys. 


IPDS APPLICATIONS 


IPDS is designed for use in a variety of research and staff analysis 
activities. IPDS may be used: 


fo) as a primary analytical tool for research on comparative static 
analysis of economic statistics across dry and irrigated crop sectors, 
States, and regions, 


fo) as a secondary analytical tool used to generate coefficients for 
aggregate agricultural sector models, and 


fo) as an analytical tool for quick turnaround staff analysis. 


Examples of each application are presented below. 


Primary Research 


IPDS will be used to evaluate the effect of commodity program payments on 
the value of water in western irrigated agriculture. State average water 
values will be defined using a crop budgeting approach, based on average 
dollar return (receipts less production costs) per unit of water. Water 
value will be computed as the difference in returns to land and management 
between irrigated and dryland cropping activities. 


This research will produce estimates of the value of water used to irrigate 
crops in the 1984 production year. Water values will be compared across 
geographic regions and across program crops. The effect of commodity 
program payments will be evaluated based on the difference in alternative 
measures of crop water value using market prices and market prices adjusted 
for program payments. 


Model Support 


IPDS data will be used in at least four aggregate agricultural sector 
models. These models are: 1) the Project W-178 model being developed by 
cooperating researchers from western land grant universities under the 
auspices of the Western Regional Research Committee; 2) a commodity program 
policy model being developed by the Resources Policy Branch, Resources and 
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Technology Division of ERS, in cooperation with the University of 
California-Davis; 3) the Western Agricultural Water Analysis (WAWA) model 
being developed by the Soil and Water Branch, Resources and Technology 
Division, ERS; and 4) the U.S. Mathematical Programming (USMP) model of the 
U.S. agricultural sector, developed by the U.S. Agricultural Policy Branch, 
Agriculture and Trade Analysis Division, ERS. 


Cooperating researchers on Project W-178 will use an aggregate agricul- 
tural sector model to evaluate effects of implementing improved water 
management in the agricultural sector. The goal of this research is to 
respond to anticipated Environmental Protection Agency (EPA) ground water 
pollution control regulations and their effect on western irrigated agri- 
culture. 


The Resources Policy Branch (ERS) commodity policy model is being designed 
primarily to evaluate regional effects of changes in farm programs. The 
model will be a price-endogenous model of the U.S. agricultural sector 
explaining alternative production levels for farm program crops. The model 
will address issues of commodity price policy, trade liberalization, and 
the Conservation Reserve Program. 


The WAWA model will be used to address western water conservation and 
reallocation issues. The model is a longrun static equilibrium model that 
incorporates dryland and irrigated crop sectors as well as detailed water 
supply sectors. It will examine research issues involving U.S. Department 
of Interior, Bureau of Reclamation policies on water price and allocation, 
conservation of irrigation water, mandatory reduction of water demand, and 
development of water marketing institutions. 


The USMP model is an aggregate, price-endogenous model of the U.S agricul- 
tural sector. The model incorporates crop and livestock sectors, secondary 
agricultural commodity markets, and agricultural import and export markets. 
This model assesses regional effects of domestic commodity policy alterna- 
tives and agricultural export shifts. 


Staff Analysis 


An example of how IPDS was used for staff analysis involved an evaluation 
of a proposed two-tiered payment structure for irrigated and dryland acres 
enrolled in the Conservation Reserve Program. ERS used the system to 
generate returns per unit of yield by crop and State for irrigated and 
dryland activities in the West. The information was displayed in a series 
of tables. Data were used to assess relative program costs per unit of 
commodity supply reduced under the Conservation Reserve Program. 
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Appendix I 


Row label "stub" for section 1 of base crop spreadsheets 


IRRIGATED WHEAT: 

1984 Irrigated acres, production, 
cost/returns and water use statistics 
Filename: IPDS501A 


Budget Budget 
Row # State/region ID flag 
ll Irrigated Connecticut 0 
2 Base Values Delaware 0 
13. By State Maine 0 
14 A-l Maryland 0 
ise Massachusetts 0) 
16 New Hampshire 0 
ues New Jersey 0 
18 New York 0) 
1B) Pennsylvania 0 
20 Rhode Island 0 
21 Vermont 0 
22 Michigan 0 
23 Minnesota 0 
24 Wisconsin 0) 
25 Illinois 0) 
26 Indiana 0 
rg | Iowa 0 
28 Missouri WSR102 i 
29 Ohio 0 
30 Kansas FED707 if 
31 Nebraska FED712 dh 
32 North Dakota WSRO90 1 
33 South Dakota WSRO91 il 
34 Kentucky 0 
35 North Carolina 0 
36 Virginia 0 
37 Tennessee @) 
38 West Virginia 0 
39 Alabama 0 
4O Florida 0 
41 Georgia WSR101 Ht 
42 South Carolina 0 
43 Arkansas NEW102 Al 
44 Louisiana 0 
45 Mississippi 0 
46 Oklahoma FED/717 th 
47 Texas FED719 ik 


I A De Eh ad ee i a 
Continued-- 
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Appendix I--Continued 


IRRIGATED WHEAT: 
1984 Irrigated acres, production, 


cost/returns and water use statistics 


File name: 


Row # 


IPDS501A 


60 Irrigated 
61 base values: 
62 weighted 

63. average 

64 by region 


65 A-2 


(*) Indicates that budget information represents a 
weighted average of multiple budgets. 


State/region 


Arizona 
Colorado 
Idaho 
Montana 
Nevada 
New Mexico 
Utah 
Wyoming 
California 
Oregon 
Washington 


Northeast 


Lake States 


Corn Belt 


Northern Plains 


Appalachia 
Southeast 
Delta 


Southern Plains 


Mountain 


Mountain I 
Mountain II 


Pacific 
Pacific I 


Pacreicel. 
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Budget 
ID 


FED724 
FED/04 
Go 

FED701 
WSRO99 
FED714 
WSRO97 
WSRO94 
FED727 
FED734 
(x) 


Budget 


Fh 
eb) 
gq 


PRP PRP RPP PRP PP 


Appendix II 
Equation Listing for Computed Spreadsheet Statistics 
Spreadsheet Section 1, Row 11, Columns N - CW: 


Column 
row/ID Cell formula 


Nll: CLIT *E1T) 
OL CT V1 1 CBi) 

ie (R114+S11) 

X11: (+Y11+AA11+4CC11) 
AGIs (4Q114+X11) 

AD11: (L11*011)*F11 

AE11: (AD11-Q11)*F11 

AF1L1: (AD11-AC11+4+Y11)*F11 

AG11: @IF(@ISERR((Q11/L11)*F11) ,0, (Q11/L11)*F11) 

AH11: @IF(@ISERR((AC11/L11)*F11) ,0, (AC11/L11)*F11) 

AlIll: @IF(@ISERR((AE11/L11)*F11) ,0, (AE11/L11)*F11) 

AJ11: @IF(@ISERR((AF11/L11)*F11) ,0, (AF11/L11)*F11) 

AK11: @IF(@ISERR(((Q11-AD11) /L11)*F11) ,0, ((Q11-AD11) /L11)*F11) 
ATI: @IF(@ISERR((AK11/011)*F11) ,0, (AK11/011)*F11) 

AM11: (011+AK11)*F11 

AN11: @IF(@ISERR(((Q11-AD11) /011)*F11) ,0, ((Q11-AD11) /011)*F11) 
AO11: @IF(@ISERR((AN11/L11)*F11) ,0, (AN11/L11)*F11) 

AP11: (L114+AN11)*F11 

AULL: (AQ11*AS11) 

AV11: (AD11+AU11)*F11 

AW11: (AE114+AU11)*F11 

AX11: (AF11+AU11)*F11 

AY11: @IF(@ISERR((AW11/L11)*F11) ,0, (AW11/L11)*F11) 

AZM: @IF(@ISERR((AX11/L11)*F11) ,0, (AX11/L11)*F11) 

BALL: @IF(@ISERR(((Q11-AV11) /L11)*F11) ,0, ((Q11-AV11) /L11)*F11) 
BB1L: @IF(@ISERR((BA11/011)*F11) ,0, (BA11/011)*F11) 

BCll: (011+BA11)*F11 

BD11: @IF(@ISERR(((Q11-AV11) /011)*F11) ,0, ((Q11-AV11) /O11)*F11) 
BE11: @IF(@ISERR((BD11/L11)*F11) ,0, (BD11/L11)*F11) 

BEM (L11+BD11)*F11 

BIL: (BG11*H11) 

BOLE: +BK11P*BC1L 

BOl1L: (BJ11*BM11) 

BP1L: (H11*BM11) 

GALT: (BW11*BY11) 

CR: (BO11+BQ11+BS11+BU11+CA11) 

CE11: (CBLT+CCIL) 

CH11: @IF(@ISERR((BQ11/Q11)*F11) ,0, (BQ11/Q11)*F11) 

OTry: @IF(@ISERR((CB11/Q11)*F11) ,0, (CB11/Q11)*F11) 

eh hale @IF(@ISERR((CE11/AC11)*F11) ,0, (CE11/AC11)*F11) 

Chis @IF(@ISERR((CB11/BG11)*F11) ,0, (CB11/BG11)*F11) 

Cola @IF(@ISERR((CE11/BG11)*F11) ,0, (CE11/BG11)*F11) 


Continued- - 
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Appendix II--Continued 


Spreadsheet Section 1, Row 11, Columns N - CW --Continued 


Column 

row/ID Cell formula 

CMLL: @IF(@ISERR((L11/BG11)*F11) ,0, (L11/BG11)*F11) 

CNiLie @IF(@ISERR((AD11/BG11)*F11) ,0, (AD11/BG11)*F11) 

GOLIs @IF(@ISERR(((AD11-Q11) /BG11)*F11) ,0, ((AD11-Q11) /BG11)*F11) 
CPLL: @IF(@ISERR((CO11/CK11)*F11) ,0, (CO11/CK11)*F11) 

CQ11: (CK114+C011)*F11 

CR11: @IF(@ISERR( (BK11/CQ11)*F11) ,0, (BK11/CQ11)*F11) 

cS1l: @IF(@ISERR((AV11/BG11)*F11) ,0, (AV11/BG11)*F11) 

Cri: @IF(@ISERR( ((AV11-Q11) /BG11)*F11) ,0, ((AV11-Q11) /BG11)*F11) 
CUIaS @IF(@ISERR( (CT11/CK11)*F11) ,0, (CT11/CK11)*F11) 

CVIL: (CK11+CT11)*F11 

CWids @IF(@ISERR((BK11/CV11)) ,0,BK11/CV11) 


Spreadsheet Section 1, Rows 60 - 73, Columns I and L, 


Column I--Formulas for regional totals: 


160: GSUMC( TEI 2027) 
L6i: @GSUMGI229 , 124) 
L627; @SUM(125. .129) 
1632 GSUMGISORe133) 
164: @SUM(134. .138) 
L65.. @SUM(139..142) 
166: @SUM(143..145) 
167: @SUM(146. .147) 
168: @SUM(148..155) 
T69: (149+150+151+154+155) 
Oe (1484+152+153) 
iy Aly @SUM(156. .158) 
iyi fee (157+158) 

1a: (156) 


Column L--Formulas for regional weighted averages: 

L60: IF($H$60=0 ,0, (((L11*$H$11+L12*$H$12+L13*$HS$13 
+L14*$HS$14+L15*$H$15+L16*$H$16+L17*SH$17 
+L18*$H$18+L19*$H$19+L20*$HS$20+L21*$H$21)/S$HS60) )) 


Lols @IF($H$61=0 ,0, ((L22*$H$22+L23*$H$23+4L24*SH$24) /SHS61) ) 

L62; @IF($H$62=0 ,0, ((L25*$H$25+L26*SHS$26+L27*$H$27 
+L28*SH$28+L29*SHS$29) /S$H$62) ) 

L635. @IF($H$63=0 ,0, ((L30*$H$30+L31*SH$31+L32*SH$ 32 
+L33*$HS$33/$HS$63) ) 

L64: @IF($H$63=0 ,0, ((L34*$H$34+L35*S$HS$ 35+L36*SHS 36 
+L37*$H$37+L38*SH$38) /SHS64) ) 

E65% @IF($H$65=0,0, ((L39*$H$39+L40*SHS$40 
+L41*$H$41+L42*SHS$42/SHS65) ) 

L66: IF($H$66=0 , 0 L43*$HS$434+L44*S$HS444+L45*SHS45 H$66 

Continued- - 
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Appendix II--Continued 


Column L--Formulas for regional weighted averages--Continued 


Column 
row/ID 


E672 
L68: 
L69: 


Oe 
ae 
2% 
Crore 


Cell formula 


@IF($H$67=0,0, ((L46*$HS$46+L47*$H$47) /SHS$67) ) 

@IF ($H$68=0,0, ((L69*$H$69+L70*$H$70) /SHS68) ) 
@IF($HS$69=0, 0, ((L49*$H$49+L50*$H$50+L51*$H$51 
+L54*$H$54+L55%*$H$55) /$H$69) ) 

@IF ($H$70=0,0, ((L48*$H$48+L52*$H$52+L53*$H$53) /$H$70) ) 
@IF($H$71=0,0, ((L72*$H$72+L73*$H$73) /$H$71) ) 
@IF($H$72=0,0, ((L57*$H$57+L58*$H$58) /$H$72) ) 

@IF ($H$73=0,0, (L56*$H$56) /$H$73) 


Spreadsheet Section 2, Row 75, Columns H - CW: 


His: 
Lio: 
Ey hore 
N/5: 
O75: 
OTs: 
hove 
VIS: 
Da he 
Yo 
AA75: 
AC75: 
AD75: 
AE75: 
AF/5: 
AG75: 
AH75: 
A175: 
AJIS 
AK75: 
AL75: 
AM75: 
AN75: 
Ai: 
AP7/5: 
AOVS:; 
AS) Os 
AUS: 
Pa i ove 
AW/5: 


CHILE 75) 

CLELSI 7a) 

(L11*M75) 

Giva* Ly.) 

(011*P75) 

Cl o+V i StGBs 5) 

(TLISU75) 

(V11*W75) 

(Y¥75+CC75+AA75) 

CY EE*¥Z75) 

(AA11*AB75) 

(Q75+X75) 

CL/S*075) * EL 

(AD75-Q75)*F11 

(AD75-AC75+Y75)*F11 
@IF(@GISERR((Q/5/L/5)*FLL)0> (075/L/5)*Fl1) 
@IF(@ISERR((AC75/L75)*F11) ,0, (AC75/L/5)*F11) 
@IF(@ISERR( (AE75/L75)*F11) ,0, (AE75/L75) *F11) 
@IF(@ISERR( (AF/5/L75)*F11) ,0, (AF75/L75) *F11) 
@IF(@ISERR(((Q75-AD75) /L75)*F11) ,0, ((Q75-AD7/5) /L75) *F11) 
@IF(@ISERR( (AK75/075)*F11) ,0, (AK75/075) *F11) 
(075+AK75)*F11 
@IF(@ISERR(((Q75-AD7/5) /075)*F11) ,0, ((Q75-AD/5) /O75) *F11) 
@IF(@ISERR( (AN75/L75)*F11) ,0, (AN75/L75) *F11) 
(L75+AN75)*F11 

(AQ11*AR75) 

(AS11*AT75) 

(AQ75*AS75) 

(AD75+AU75)*F11 

(AE75+AU75) *F11 


AX75: AF75+AU75)*F11 


Continued-- 
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Spreadsheet Section 2, Row 75, Columns H - CW --Continued 


Column 
row/ID 


AY75: 
AZ75: 
BATS: 
BB/ 5" 
BG7 5s 
BD75: 
BEVoe 
BF/5: 
BG75: 
BEY or 
BIDE 
BK75: 
BM75: 
BOS: 
BE 
BOS" 
Bs/o- 
BUYS: 
BW/5: 
BYyo: 
CA75: 
CB7/5: 
cc75: 
GEY 5" 
CH75: 
Ci 5. 
Cle 
CKY'5: 
CLS: 
CM75: 
CN75: 
C075: 
CP75: 
COTS. 
CR75: 
CSV5¢ 
GTi 5% 
CUTS. 
CV75: 
CW7/5: 


Cell formula 


@IF(@ISERR((AW75/L75)*F11) ,0, (AW75/L75)*F11) 
@IF(@ISERR((AX75/L75)*F11) ,0, (AX75/L75)*F11) 

@IF (@ISERR(((Q75-AV75) /L75)*F11) ,0, ((Q75-AV75) /L75)*F11) 
@IF(@ISERR((BA75/075)*F11) ,0, (BA75/075) *F11) 
(075+BA75)*F11 

@IF (@ISERR(((Q75-AV75) /075)*F11) ,0, ((Q75-AV75) /O75) *F11) 
@IF(@ISERR((BD75/L75)*F11) ,0, (BD75/L75) *F11) 
(L75+BD75)*F11 

(BG11*BH75) 

(BG75*H75) 

(BG75*BK75) 

(BK11*BL75) 

(BM11*BN75) 

(BJ75*BM75) 

(H75*BM75) 

(BQ11*BR75) 

(BS11*BT75) 

(BU11*BV75) 

(BW11*BX75) 

+BY11*BZ75 

(BW75*BY11) 

(BO75+BQ75+BS11+BU11+CA75) 

(CC11*CD75) 

(CB75+CC75) 

@IF (@ISERR((BQ75/Q75)*F11) ,0, (BQ75/Q75)*F11) 

@IF (@ISERR((CB75/Q75)*F11) ,0, (CB75/Q75)*F11) 
@IF(@ISERR((CE75/AC75)*F11) ,0, (CE75/AC75)*F11) 
@IF(@ISERR((CB75/BG75)*F11) ,0, (CB75/BG75)*F11) 

@IF (@ISERR((CE75/BG75)*F11) ,0, (CE75/BG75)*F11) 

@IF (@ISERR((L75/BG75)*F11) ,0, (L75/BG75)*F11) 
@IF(@ISERR((AD75/BG75)*F11) ,0, (AD75/BG75) *F11) 

@IF (@ISERR(((AD75-Q75) /BG75)*F11) ,0, ((AD75-Q75) /BG75) *F11) 
@IF(@ISERR((CO75/CK75)*F11) ,0, (CO75/CK75)*F11) 
(CK75+CO75)*F11 

@IF (@ISERR((BK75/CQ75)*F11) ,0, (BK75/CQ75)*F11) 

@IF (@ISERR((AV75/BG75)*F11) ,0, (AV75/BG75)*F11) 
@IF(@ISERR(((AV75-Q75) /BG75)*F11) ,0, ((AV75-Q75) /BG75) *F11) 
@IF (@ISERR((CT75/CK75)*F11) ,0, (CT75/CK75)*F11) 
(CK75+CT75)*F11 
@IF(@ISERR((BK75/CV75)*F11) ,0, (BK75/CV75) *F11) 
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\A 


\B 


A\Ze 


Appendix III-A 


Automated Command Stream for Macro COMP 


{GETLABEL "ENTER TITLE OF OUTPUT FILE: ", TITLE} 
{GETLABEL "ENTER COLUMN LETTER OR X IF FINISHED: 
{GOTO } COLUMN” { LEFT) {END} {RIGHT } {RIGHT }+COLUMN~ 
/RV~~ {IF COLUMN="X")} {BRANCH \B} 

{GETLABEL "IRRIGATED(A) OR DRY(B): ", TYPE} 

{GOTO )TYPE™~ {LEFT} { END) {RIGHT} {RIGHT}+TYPE~ /RV~~ {BRANCH \A} 


" COLUMN } 


{GOTO }C1~ /RNCMARK™ ~ 


{GETLABEL "WORKSHEET #501,Y OR N: ",ONE} 
{GETLABEL "WORKSHEET #502,Y OR N: ", TWO) 
{GETLABEL "WORKSHEET #503,Y OR N: ",THREE} 
{GETLABEL "WORKSHEET #504 Y OR N: ", FOUR) 
{GETLABEL "WORKSHEET #505 Y OR N: ",FIVE) 
{GETLABEL "WORKSHEET #506 Y OR N: ",SIX) 
{GETLABEL "WORKSHEET #507 Y OR N: ",SEVEN) 
{GETLABEL "WORKSHEET #508 Y OR N: ",EIGHT) 
{GETLABEL "WORKSHEET #509 Y OR N: ",NINE) 
{GETLABEL "WORKSHEET #510 Y OR N: ",TEN) 
{GETLABEL "WORKSHEET #511 Y OR N: ", ELEVEN) 


{LET RUN, +RUN+1} {GOTO} COLUMN~ 


{RIGHT ) /C{ END} {RIGHT} ~ { LEFT} ~ 
{GOTO}TYPE™ {RIGHT} /C{ END} {RIGHT} ~ { LEFT} ~ 

{IF COLUMN="X"} {BRANCH \F)} {GOTO }MARK™ 

{IF TYPE="A"} IRRIGATED™ {DOWN} 

{IF TYPE="B"}DRYLAND~ { DOWN} 

{IF ONE="Y")}WHEAT™ {DOWN} /FCCN{ COLUMN) ~V501{TYPE}~ {RIGHT} {UP} { LET 
COUNTER , +COUNTER+1 } 

{IF TWO="Y"}CORN™ { DOWN} /FCCN{ COLUMN} ~V502{ TYPE} ~ {RIGHT} {UP} { LET 
COUNTER , +COUNTER+1 } 

{IF THREE="Y" } SORGHUM” { DOWN} /FCCN{ COLUMN} ~V503{ TYPE} ~ {RIGHT} {UP} 
{LET COUNTER, +COUNTER+1 } 

{IF FOUR="Y" }SOYBEANS~ { DOWN} /FCCN{ COLUMN} ~V504{ TYPE} ~ {RIGHT} (UP} 
{LET COUNTER , +COUNTER+1 } 

{IF FIVE="Y" } COTTON” { DOWN} /FCCN{ COLUMN) ~V505{ TYPE} ~ {RIGHT} {UP} 
{LET COUNTER , +COUNTER+1 } 

{IF SIX="Y"}RICE™ {DOWN} /FCCN{ COLUMN} ~V506{ TYPE} ~ {RIGHT} {UP} 

{LET COUNTER , +COUNTER+1 } 

{IF SEVEN="Y"}OATS~ { DOWN} /FCCN{ COLUMN} ~V507{ TYPE) ~ {RIGHT} {UP} 
{LET COUNTER, +COUNTER+1 } 

{IF EIGHT="Y" } BARLEY~ { DOWN} /FCCN{ COLUMN) ~V508{ TYPE) ~ {RIGHT} {UP} 
{LET COUNTER, +COUNTER+1 } 

(IF NINE="Y"}SILAGE™~ {DOWN} /FCCN { COLUMN} ~V509 {TYPE} ~ {RIGHT} {UP} 
{LET COUNTER ,+COUNTER+1 } 

{IF TEN="Y" }HAY-ALF™ {DOWN} /FCCN{ COLUMN} ~V510{TYPE}~ {RIGHT} {UP} 
(LET COUNTER,+COUNTER+1 } 

{IF ELEVEN="Y" }HAY-OTHER™ { DOWN} /FCCN{ COLUMN) ~V510{ TYPE) ~ 
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{RIGHT} {UP} {LET COUNTER, +COUNTER+1) 
/MCS1°- :~ 

/C~{DOWN).. {DOWN 267}~ {RIGHT} {END} {UP} /RNDMARK~ 
/RNCMARK™ ~ {BRANCH \Z)} 


\F _ /WDRAG. .A6~ 
{GOTO})A8~ /FCCNC9. .D265~V501B7 
/FS{ESC 3)A:{TITLE)~ 


RUN 
COUNTER 
ONE 
TWO 
THREE 
FOUR 
FIVE 
SIX 
SEVEN 
EIGHT 
NINE 
TEN 
ELEVEN 
TYPE 


COLUMN 


\X {LET CX,+CX+1)} 
{IF ( (COUNTER) /(RUN)+1)*3<16)} {BRANCH \T} 
{IF ( (COUNTER) /(RUN)+1)*2<16} {BRANCH \W} 
{BRANCH \0O} 


/P {GETNUMBER "ENTER SECTION TO PRINT: ",SECT} 
{IF SECT=1}{LET BORDER, "A8..B72"} 
{IF SECT=1}{LET RANGE,"{DOWN 8}..{LEFT (RANGE2)}{LEFT 2}{RIGHT 2} 
{DOWN 63}"}{IF SECT=2}{LET BORDER,"A74. .B136"} 
{IF SECT=2}{LET RANGE,"{DOWN 72}..{LEFT (RANGE2) } 
{LEFT 2}{RIGHT 2}{DOWN 63}"} 
{IF SECT=3}{LET BORDER,"A138..B265"} 
{IF SECT=3}{LET RANGE,"{DOWN 136}..{LEFT (RANGE2) } 
{LEFT 2}{RIGHT 2} 
{DOWN 127}"}{IF SECT=12} {LET BORDER,"A8. .B136"} 
{IF SECT=12} {LET RANGE,"{DOWN 8}..{LEFT (RANGE2) } 
(LEFT 2}{RIGHT 2} 
{DOWN 127}"}{IF SECT=23} {LET BORDER,"A74..B265"} 
{IF SECT=23}{LET RANGE,"{DOWN 72}..{LEFT (RANGE2) } 
{LEFT 2}{RIGHT 2} 
(DOWN 191}"}{IF SECT=123} {LET BORDER,"A8. .B264"} 
{IF SECT=123}{LET RANGE,"{DOWN 8}..{LEFT (RANGE2)} 
(LEFT 2}{RIGHT 2} 
{DOWN 255}"}{BRANCH \X} 
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\s 


\Q 


CX 
SECT 
BORDER 
RANGE 


RANGE2 


NE 


\W 


\0O 


DEILE 


/PPCAOBC{ BORDER} ~ 

{ESC 4} {END} {HOME} {RIGHT} {END} (UP) { DOWN) {END} {LEFT} 

/PPR{ RANGE) {RIGHT} ~ 

OBR{UP}..{DOWN 8}{LEFT (RANGE2)}(RIGHT){LEFT 2}{RIGHT 2)}~ 
OAOFQGQ{BRANCH \X} 


/PPPAR{LEFT (RANGE2)}{LEFT (RANGE2)}{RIGHT}{LEFT 2} 
{RIGHT 2} ~R{ LEFT) ~ 

OBR{ESC){LEFT}..{DOWN 8}{(LEFT (RANGE2)}{RIGHT}{LEFT 2} 
{RIGHT 2}~QGQ{BRANCH \X} 


{LET RANGE2 , (COUNTER/RUN) *3+3 } 
{IF COUNTER<1} {QUIT} 

{LET COUNTER, (+COUNTER -RANGE2) +3 } 
{LET RUN,+RUN-3} 

{IF CX=1} {BRANCH \S} 

{BRANCH \Q} 


{LET RANGE2 , (COUNTER/RUN) *2+2 } 
{LET COUNTER, (+COUNTER -RANGE2 )+2 } 
{LET RUN,+RUN-2} 

{IF CX=1} {BRANCH \S} 

(BRANCH \Q) 


{LET RANGE2, (COUNTER/RUN) +1} 

{LET COUNTER, (+COUNTER-RANGE2)+1} 
{LET RUN,+RUN-1) 

{IF CX=1} {BRANCH \S) 

{BRANCH \Q} 
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Automated Command Stream for Macro DIFF 


\A {GOTO} COLUMN7 
/RNCWORK™ ~ 
{LET COUNTER, 0} 
{GETLABEL "ENTER TITLE OF OUTPUT FILE: ", TITLE} 
{GOTO} LABEL” {RIGHT} /RNCWORK2~~ 


\B _/RNCWORK2~ {RIGHT ) ~ 
(GETLABEL "ENTER FILE # OR X IF FINISHED: ",LABEL)+LABEL~ 
/ BN 
{IF LABEL="X"} (BRANCH \X) 
{ GOTO }WORK™~ { DOWN} /RNDWORK~ /RNCWORK~ ~ 


\Cc {GETLABEL "ENTER COLUMNS, X IF FINISHED OR ‘SAME’ IF 
SAME AS LAST FILE: ",COLUMN}+COLUMN~ 
/RV~~{RECALC COLUMN} 
{IF COLUMN="SAME" } {UP} /C{END} {RIGHT}~ {DOWN}~ {BRANCH \D} 
{IF COLUMN<>"X")} {RIGHT} {BRANCH \C} 


\D  {GOTO}WORK2~ 
{BRANCH \B} 


\X  (GOTO}LABEL” {RIGHT} /G( END} (RIGHT) ~ { LEFT} ~ 
{RECALC LABEL} 
{IF LABEL="X") (BRANCH \I} 
{GOTO } COLUMN~ { DOWN} /C{ END} { DOWN} { END} (RIGHT) ~ {UP} ~ 
{RECALC COLUMN} {RECALC COLUMN2 } {GOTO} COLUMN2~ 
/RV~ {DOWN 2)~ 
(RECALC COLUMN3} 
{IF COUNTER<>0} {GOTO }WORK3~ /RNDWORK3~ {RETURN} 
(GOTO) Cl 
{FOR COUNTER,1,999,1, SUB) 


SUB {DOWN 2) /FCCN{COLUMN3}1.. {COLUMN3}265~ 
V{ LABEL) A~ 
{END} {UP} IRRIGATED~ { DOWN} BASE™ 
{ DOWN} {RIGHT} /FCCN{ COLUMN3}1.. {COLUMN3 } 265~ 
V{ LABEL) B~ 
{END} {UP} "DRYLAND 
{ DOWN) "BASE 
{RIGHT} {UP} "IRR-DRY~ 
{DOWN 12}@IF(+{LEFT}=O/OR#+(LEFT 2}=0,@NA,+{LEFT 2}-{LEFT))~ 
/C”.. {DOWN 254}~ 
(RECHT) +( LEET) / {LER EI? )s 
/C”..{ LEFT) {END} {DOWN} {RIGHT) ~ 
{END} {UP} "(IRR-DRY) / 
{DOWN} "DRY BASE 
{DOWN 8}{LEFT}ABSOLUTE{ DOWN) DIFFERENTIAL{RIGHT} 
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DIFFERENTIAL{ UP} PERCENT 
(UP 5){LEFT 3)/RE{DOWN 2) {RIGHT)~ 
(DOWNA7 1/Go eI RIGHT le 
{UP 11)/M{DOWN 2){RIGHT 3}~{DOWN 2)~ 
{BRANCH \J} 
\K (UP 5}{RIGHT 4)/WCS1~:~/C”..{LEFT) { PGDN) (END) { DOWN) (RIGHT } ~ 
{RIGHT } /RNCWORK3 ~~ 
{ GOTO} COLUMN~ {RIGHT} /C{ END} {RIGHT} ~ {LEFT} ~ 
(RECALC COLUMN) {RECALC COLUMN2}{GOTO}COLUMN2~/RV~ {DOWN 2}~ 
(RECALC COLUMN3} 
(IF COLUMN3<>"X" } (GOTO }WORK3~ /RNDWORK3~ {RETURN} 
{BRANCH \X) 
\I _ (GOTO)A11~/FCCNC9. .D265~ IPDS501B~ 
/REA13~ /REA17. .A19~ /REA62~ /REA77~ /REA126~ /REA143~ /REA194~ 
/REA207~ /REA258~ 
{GOTO)A61~/C~. . {END) {RIGHT) ~ 
(GOTO)A76~/C~. . (END) {RIGHT} ~ 
(GOTO}A125~/C~. . {END} {RIGHT} ~ 
{GOTO}A140~/C~. . (END) {RIGHT} ~ 
(GOTO)A189~/C~. . {END} {RIGHT} ~ 
{GOTO}A204~ /C~. . {END} {RIGHT} ~ 
(GOTO}A253~/C~. . {END} {RIGHT} ~ 
/MPRINT~A300~ 
/FXV{ESC 2)}A: (TITLE) ~ 
Al. .1V349~ {QUIT} 


ELC 
LABEL 
COLUMN 
COLUMN2 0.00 
COLUMN3 
FIELD 
FILE 
PRINTS 


{GETNUMBER "ENTER SECTION TO ete n, 


\P 


(LF SECT=1} (LET BORDER, “A13. B/S") 

{IF SECT=1}(LET RANGE,"{DOWN 10}..{LEFT 14}{DOWN 62}"} 
(IF SECT=2}{LET BORDER,"A/77..B139"} 

(IF SECT=2}(LET RANGE,"{DOWN 74)}..{LEFT 14}{DOWN 62)"} 
{IF SECT=3}({LET BORDER,"A141..B267"} 

(IF SECT=3}{LET RANGE,"{DOWN 138}..{LEFT 14}{DOWN 126}")} 
{IF SECT=12}{LET BORDER,"A13..B139"} 

{IF SECT=12}{LET RANGE,"{DOWN 10)..{LEFT 14}){DOWN 126}"} 
{IF SECT=23)}{LET BORDER,"A77..B267"} 

{IF SECT=23}{(LET RANGE,"{DOWN 74}..{LEFT 14}{DOWN 190}"} 
(i beSECT=) 23 }}(LETs BORDER? “Al3.).B26/."} 

(IF SECT=123}{LET RANGE,"{DOWN 10}..{LEFT 14}{DOWN 254}"} 
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/PPCAOBC{ BORDER) ~ % 
(ESC 4}{END} {HOME} (RIGHT) {END}{UP) {DOWN 2} {END) {LEFT} /PPR{RANGE) 
OBR.. {DOWN 9)(LEFT 14}~ 

OAOFQGQ{ BRANCH \Q} 


\Q {LET COUNTER,+COUNTER- 3) 
{IF COUNTER=0} {QUIT} 
{IF COUNTER<3} {BRANCH \W) 
/PPPAR{ LEFT 29}~R{LEFT)~ 
OBR{ESC}{LEFT}..{DOWN 9}{LEFT 14}~QGQ 
{BRANCH \Q} 


\W /PPPAR{LEFT 29}{RIGHT 2}~R{LEFT}~ 
OBR{ESC}{LEFT}..{DOWN 9}{END}{LEFT}{RIGHT 2}~QGQ 
{QUIT} 


COUNTER 
SECT 
BORDER 
RANGE 


\J {DOWN 5){ IF LABEL="501" }WHEAT~ /C~ {RIGHT} ~ 
(IF LABEL="502"}CORN~ /C~ {RIGHT)~ 
(IF LABEL="503"} SORGHUM~ /C~ {RIGHT} ~ 
(IF LABEL="504" }) SOYBEANS~ /C~ {RIGHT} ~ 
{IF LABEL="505")COTTON~ /C~ {RIGHT) ~ 
(IF LABEL="506")RICE~ /C~ {RIGHT} ~ 
{IF LABEL="507"}OATS~ /C~ {RIGHT} ~ 
(IF LABEL="508"} BARLEY~ /C~ {RIGHT} ~ 
{IF LABEL="509"} SILAGE~ /C~ {RIGHT} ~ 
{IF LABEL="510" }HAY-ALF~ /C~ {RIGHT} ~ 
{IF LABEL="511")HAY-OTHER~ /C~ {RIGHT} ~ 
{BRANCH \K} 
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\A 


\B 


\c 


\D 


\E 


Appendix III-C 


Automated Command Stream for Macro SCENAR 


/WGDD{ ESC}C:\123\WKSFILES~UQ 

{GOTO} SCENARIO~ 

{GETLABEL "ENTER TITLE OF INPUT FILE: ",SCENARIO}) 
{GOTO} FOR~ 

/FCCNDATA~ 

{ESC 2)A: {SCENARIO} ~ {GOTO} FOR (UP}X~ 

( END} { DOWN) { DOWN) X~ 

(GOTO) TILES 

{GETLABEL "ENTER TITLE OF OUTPUT FILE: ", TITLE) 
/FXVTITLE™ ~ 

{GOTO} FILE~ 


{RIGHT) 

(GETLABEL "ENTER FILE # OR X IF FINISHED: ", FILE} 
+FILE~ 

/RV~~ 

(IF FILE<>"X") {BRANCH \B} 

{HOME} {WINDOWSOFF} /RE{DOWN 19}~ 

(GOTO TOX17xs 

/RNCBEGIN™ ~ 

{DOWN 4)X7 


(LET TYPE,A) 

{GOTO} FILE~ 
{RIGHT} /C{ END} {RIGHT} ~ 

{ LEFT } ~ 

{IF FILE="X"}{BRANCH EDIT} 


{HOME} /REA1. .CW3257~ /FCCEIPDS { FILE} { TYPE} ~ 
{GOTO }A450~X7 {RIGHT} 

/FCCNB10..DD59~ {ESC 2}A: {SCENARIO} ~ {LEFT} 
{END} {RIGHT} { END} {DOWN} {RIGHT }X~ 

{GOTO }A450~ {END} {RIGHT } {RIGHT }X~ {RIGHT }X~ 

{ LEFT } {END} {DOWN} {RIGHT }X~ 

{GOTO}B450~ /C{ END} {RIGHT} {END} { DOWN} ~ { LEFT} ~ 
{END} {RIGHT} /RE{ END} { DOWN} ~ 


{IF A450="X"} (BRANCH \F} 
{RECALC WHERE} {GOTO) {WHERE} ~ 

/RNCTRICK” . . {END} (HOME) {RIGHT} { END) (UP) ~ 
/RNCTRICK™ { ESC} ~ 

{GOTO} TRICK~ 

/RNDTRICK~ 

{DOWN 4}/C.. {DOWN 4}~ 

{END} {HOME) {RIGHT) {END} {UP) (DOWN 4) (END) (LEFT) (RIGHT) ~ 
{GOTO }A450~ 

/C{ END} { DOWN) ~ 
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SUB1 


SUB2 


SUB3 


\E 


\F 


{END ) {HOME} {RIGHT} {END} {UP} {DOWN 4} 
{END} {LEFT} {DOWN 6)}~ 


(Continued) : 

{DOWN 2}/C{END} { DOWN} ~ 

{WHERE } ~ 

{END} {HOME} {RIGHT} {END} {UP} {DOWN 4} 
{END} {LEFT} {DOWN 6)/M..{DOWN)}~ {UP}~ 
{DOWN }\-~ 

{IF A450=B450} {BRANCH SUB1} 

{IF FOR<>"X"} {CALC} {BRANCH SUB2} 


{IF FILE="506"}{LET TYPE, B} 
{IF TYPE="A"}{LET TYPE,B}{BRANCH \D} 
{BRANCH \C} 


{GOTO} B450~ 

/C{ END} {RIGHT} { END} {DOWN} ~ { LEFT} ~ 
{END} {RIGHT} /RE{ END} { DOWN} ~ 
{LEFT} {END} {LEFT} {BRANCH \E} 


{RECALC FORT} {GOTO)FORT~ 

/RV~ {DOWN 2)}7 

/RNCTRICK™ { FORTY} ~ 

/RNCTRICK” {ESC} ~ 

{GOTO} TRICK~ 

/RNCTRICK” . . {END} {HOME) {RIGHT} { END) {UP} ~ 
/RNCTRICK™ { ESC} ~ 

{GOTO)TRICK~ 

/RNDTRICK~ 

{DOWN 4}/C..{DOWN 4)~ 

{END} {HOME) {RIGHT} {END} {UP} {DOWN 4) (END) (LEFT) (RIGHT) ~ 
/RV{ FORTY) ~ 

{END} {HOME} {RIGHT} {END} {UP} {DOWN 4) 
{END} {LEFT} {DOWN 8)}~ | 

{END} {HOME} {RIGHT) {END} {UP} (DOWN 4) 
{END} {LEFT} {DOWN 5}OUTPUT~ 

{DOWN }+FORTY~ /RV7~ 

{ DOWN }\-~ 

{GOTO} FOR” 

/C{END) { DOWN) ~ (UP} ~ 

{RECALC FOR) 

{IF FOR="X"} /RE{ END) (UP) ~/FCCNDATA™~ 

(ESC 2)A: {SCENARIO} ~ {GOTO} FOR {UP)X~ {BRANCH SUB3) 
{BRANCH SUB2) 


{END } {HOME} {RIGHT} {END} {UP} { END} { LEFT} {RIGHT }+A4507 
/RV-* 

{DOWN} {IF FILE="501" }WHEAT~ 

{IF FILE="502")CORN~ 
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SUB3 (Continued): 
{IF FILE="503" } SORGHUM~ 
{IF FILE="504" } SOYBEANS~ 
{IF FILE="505" }COTTON~ 
ULB EILLE="506")RIGE= 
{LE FILE="50/7"}0ATS= 
{IF FILE="508" } BARLEY~ 
{IF FILE="509"}SILAGE~ 
{IF FILE="510" }HAY-ALF~ 
{IF FILE="511"}HAY-OTHER™~ 
{DOWN} {IF TYPE="A"}IRRIGATED™ 
{IF TYPE="B" }DRYLAND~ 
{ END } { DOWN} {END} {RIGHT} {RIGHT} { END} {UP} /WCS17~ 
on /Ge » 2( DOWNe 7/4) ~ 
{BRANCH SUB1} 


EDIT {GOTO} BEGIN™ 
{DOWN 12) {RIGHT} /WIC~ 
JEDIISED loam 
{END} {DOWN} {DOWN 2) /MPRMACRO~~ 
{GOTO} BEGIN™ 
{RIGHT }) /FXVTEMP~ 
.. {END} {HOME} ~ 
/FRPART2~ 
WHERE 0 
FILE 
TYPE 
FOR 
FORT 0 
FORTY 
TITLE 


\P {END} {HOME} {RIGHT} {END} {UP} 
{ END } { LEFT} { LEFT} /RE{ RIGHT} ~ /WIR™ 
X~ {DOWN } {RIGHT }X~ {UP} X~ 
{LEFT 2))/DF.. (HOME) (RIGHT igiigs s 
{GOTO}B2~ /RNCSTART™ {ESC} {UP} ~ 
/RNCSTOP™ { ESC} {END} {RIGHT} {UP}~ 


BACK {IF +STOP-START+1>16)} {BRANCH SUB10} 


{IF +STOP-START+1<16} {BRANCH SUB20} 
{BRANCH PRINT2} 
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SUB10 


SUB20 
SUB21 


COUNTS 


SUB30 


PRINT2 


\A 


{GOTO} STOP~ 

{END } { DOWN) { DOWN} X~ 

{GOTO} START~ 

{ DOWN) /PPCAOS { ESC}\015~ 
MLO~MR240~MB1~ 

BCA14. .A76~ 

QR..{DOWN 75}{END) (RIGHT) {UP} ~ 
AGPQ{ GOTO} STOP™~ 

/RNDSTART~ 

/RNCSTART™ 

{ ESC} {RIGHT} ~ 

{IF START="X")} (QUIT) 

/RNCSTOP™ { DOWN) { RIGHT) { END} {RIGHT} (UP) ~ 
{IF STOP="X") /RNCSTOP~ {LEFT 2)}7~ 
{BRANCH BACK) 


{LET COUNTS ,0} 

/RNCSTOP~ { DOWN} {RIGHT} {END} {RIGHT} {UP} ~ 
{IF STOP="X")/RNCSTOP~ (LEFT 2)}~ 

{IF COUNTS<>O) {BRANCH PRINT2} 

{IF COUNTS=0}{IF +STOP-START+1>16 } {BRANCH 
{IF +STOP-START+1<16} {LET COUNTS ,1} 
{RECALC COUNTS} {BRANCH SUB21} 

{IF +STOP-START+1>16}/RNCSTOP™ { DOWN} 
{END} {LEFT} {LEFT} {UP} ~ 

{BRANCH PRINT2} 


{GOTO} STOP~ 

/RNDSTART™ 

/RNCSTART~ 

(ESC) {RIGHT} ~ 

{IF START="X") /PPPQ{QUIT} 
{BRANCH SUB20} 


{GOTO}STOP~ 

{ END } (DOWN } { DOWN } X~ 

{GOTO} START~ 

{ DOWN } /PPCAOS { ESC}\015~ 
MLO~MR240~ 

BCA14. .A76~ 

QR.. {DOWN 75}{END} {RIGHT} {UP} ~ 
AGPQ{ BRANCH SUB30} 


SUB10} 


{GETLABEL "ENTER TITLE OF COMP OUTPUT: ",TITLE1} 
(GETLABEL “ENTER TITLE OF DIFF OUTPUT: '",TITLE2} 


{WINDOWSOFF } /WGRM 
{END } {HOME} {RIGHT} { END} {UP} {END} {LEFT} 
{ LEFT} /RE{ RIGHT} ~X~ 
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Appendix III-C --Continued 


\A (Continued) : 


\B 


EDIT1 


EDIT2 


SUB1 


SUB2 


\Cc 


\D 


\F 
\G 


/RNCBEGIN™ ~ 

{END} {HOME} {DOWN 2} {END} {LEFT)TESTA~ 
/RNLR* 

{DOWN 2)TESTB~ 

/RNLR~ 

{HOME} {DOWN 9) {RIGHT} /RNCTEMP~~ 


/RNCTEMP™ { RIGHT) ~ 

(IF TEMP="OUTPUT" ) (BRANCH EDIT1} 

(IF TEMP=":"}/RNDTEMP~ {BRANCH EDIT2) 
{BRANCH \B) 


(GOTO } TEMP~ 

{ DOWN) /C~ TESTA” 

{GOTO} TESTA~ 

/C” {LEFT} {END} (RIGHT) {RIGHT} ~ 
{BRANCH \B) 


{HOME ) {RIGHT} /RNCTEMP™ ~ 

[CalESTE= 
/RNCTEMP™ { END} {RIGHT} {RIGHT} ~ 

{IF TEMP=TESTB) /RNDTEMP~ {BRANCH SUB1) 
{GOTO) TESTB~ 

{ LEFT) { END} {RIGHT} {RIGHT} /CTEMP ~~ 
{BRANCH \C} 


{GOTO} TESTA” 

{ END) (RIGHT) (RIGHT) X~ 

{END} {LEFT} {RIGHT 2}/C{END} (RIGHT) ~ 
({UP}~ 

{GOTO} TESTB~ 

{ END) {RIGHT} (RIGHT) X~ 

{GOTO} TESTA~ 

{RIGHT} /C{ END} {RIGHT ) ~ {LEFT} ~ 
{RECALC TESTA} 

{IF TESTA="X"} {BRANCH EDIT3) 

{HOME } {RIGHT} /RNCTEMP1 ~~ 

{IF TEMP1=TESTB} {DOWN 10) /RNCTEMP2~~ {BRANCH 
(IF TEMP1="X"}/RNDTEMP1~ (BRANCH \D} 
/RNCTEMP1~ { END) {RIGHT) {RIGHT} ~ 
{GOTO} TEMP1~ 

{BRANCH \F) 


/RNCTEMP2~ {RIGHT} ~ 

{IF TEMP2<>TESTA)} {BRANCH SUB2} 

{GOTO} TEMP2~ 

{ PGUP} /C{ ESC} {END} {LEFT}. . (DOWN}~ { DOWN} ~ 
{DOWN}/C..{DOWN 73)}~ 


SUB2 } 


{END} (HOME) {RIGHT} {END} {UP} {END} { LEFT} {RIGHT} ~ 
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Appendix III-C --Continued 


SUB2 (Continued): 
/RNDTEMP2~ {GOTO} TEMP1~ 
{BRANCH \G} 


EDIT3 {UP} /C{ END} {RIGHT) ~ {DOWN} ~ 
{GOTO} TESTB~ 
{RIGHT ) /C{ END} {RIGHT) ~ {LEFT} ~ 
{RECALC TESTB} 
(IF TESTB="X")} {BRANCH EDIT4) 
{BRANCH \D} 


EDIT4 (GOTO) BEGIN™ 
/FXVTEMP~ 
{ESC} {RIGHT). . {END} {HOME) ~ 
/REAL. .IV99~ 
(HOME ) /FCCETEMP~ 
/FEWTEMP~Y 
{END } {HOME} {RIGHT} { END) {UP} 
{END} {LEFT} {RIGHT 2} {DOWN)Y{LEFT}X~ 
{UP} /WIR{ DOWN} ~ 
{END} { LEFT} /RNCTEST1~ {ESC} {DOWN 3}~ 
\H {IF TEST1="X"} {BRANCH COMP} 
(IF TEST1="RICE") {BRANCH XRICE} 
{BRANCH DIFF} 


DIFF IRRIGATED~ 
{ DOWN } ADJUSTED { RIGHT } ADJUSTED { UP} DRYLAND ~ 
{RIGHT} /WIC{RIGHT 2}~ 
IRR-DRY{DOWN 11)DIFFERENTIAL~ 
{DOWN} /C{ ESC} {LEFT)~. . (RIGHT) ~ 
{ DOWN) @IF(@ROUND(+{LEFT }- {LEFT} ,2)=0, 
@NA,@ROUND(+{LEFT 2}-{LEFT),2))~ 
/C”..{DOWN 62)}7~ 
{RIGHT} { PGUP}" (IRR-DRY) /{ DOWN) DRYLAND~ 
{END} {DOWN) {UP 2) PERCENT {DOWN})DIFFERENTIAL~ 
{DOWN 2)@IF(+{LEFT 3}=0/'0R}# 
+{LEFT 2}=0,@NA,@ROUND(+(LEFT}/{LEFT 2),2))-~ 
/C” . . {LEFT} {END} {DOWN) {RIGHT} ~ 
{PGUP) {RIGHT} /WCS1~:~/C~.. {LEFT} ( PGDN} 

( END} { DOWN} (RIGHT) ~ {RIGHT} /RNCTEST1~ {RIGHT 5)~ 
{BRANCH \H) 


XRICE  IRRIGATED{DOWN}ADJUSTED~ 
(RIGHT) /WIC{RIGHT 3}~{DOWN 2)RICE 
(UP 2)ADJUSTED{ UP} DRYLAND {RIGHT} 
IRR-DRY{DOWN 11)DIFFERENTIAL~ 
(DOWN) {LEFT} /C(ESC}{LEFT}~.. (RIGHT 2)~ 
{ DOWN) @NA~ 
/C~..{DOWN 62)7 
/C{END)} {DOWN)~.. {RIGHT 2)~ 
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Appendix III-C --Continued 


XRICE (Continued): 


COMP 


COMP2 


EDITS 


EDIT6 


ASE 


\J 


\K 


{RIGHT 2}(UP 2)DIFFERENTIAL {UP} PERCENT™ 
{ END} {UP} " (IRR-DRY) /{ DOWN} DRYLAND~ 
(RIGHT )} {UP} /WCS1~ 

:~/C~ . . (LEFT) ( PGDN) { END} { DOWN} {RIGHT} ~ 
{RIGHT} /RNCTEST1~ {RIGHT 5}~ 

(BRANCH \H) 


(HOME) 
/RNCBEGIN2~ { ESC) {END} (HOME) { DOWN) { END) {RIGHT} ~ 
/RNCTEST2~ {ESC} {DOWN 3}7~ 

(IF TEST2="X")} {BRANCH COMP2) 

(IF TEST2="Y"} {BRANCH EDITS) 
/C..{DOWN 75)~BEGIN2~ 

{GOTO} BEGIN2~ 

/C..{DOWN 75)~{END) {LEFT} {RIGHT} ~ 
(GOTO) TEST2~ { PGUP} 

(RIGHT 5}/RNCTEST2~ (RIGHT 5)~ 
{BRANCH \I} 


{GOTO} BEGIN2~ 

/RNCHERE” { ESC) (END) { LEFT) {RIGHT} ~ 
{HOME} 

{RIGHT} /RNDTEST2~ 
/RNCTEST2~ {ESC} {DOWN 3)~ 

{BRANCH \I) 


{GOTO)A62~ 

/C~..{END) {RIGHT} ~ 

{HOME} { END} {RIGHT} {RIGHT }X~ {HOME} /RNCTEST3 ~~ 
/RNCTEST3~ {RIGHT) ~ 

{RIGHT) {IF TEST3="X"} {BRANCH EDIT6) 

{IF TEST3=":"} {BRANCH \J) 

/WCS15~ 

{BRANCH \J) 


{ DOWN) /MMOVE™ ~ 
{DOWN 2}/RNLR~ 
/RLC{ ESC} {HOME).. {DOWN 12) (END) {RIGHT} (UP) ~ 
{DOWN 73}{RIGHT)/FXV{ESC 2)A:{TITLE2}~ 
. {HOME } ~ 
{GOTO }HERE~ 
{END} {RIGHT) {RIGHT} {DOWN 3)X7 
{UP 3}{LEFT){END}{LEFT) {DOWN 3)/RNCTEST4~~ 
/RNCTEST4~ (RIGHT) ~ 
{RIGHT} {IF TEST4="X") {BRANCH EDIT7}) 
(IF TEST4=":")/WCS1~ {BRANCH \K} 
/WCS15~ 
{BRANCH \K} 
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Appendix III-C --Continued 


EDIT7 {LEFT} {UP 3}/RLC{DOWN 11}{END){LEFT)~ 

{END} { LEFT} /RNCTEST5~ {ESC} {DOWN 3}7~ 
/WDCIV1~ {RIGHT} /RNCTEST6~ {ESC} {DOWN 3}7 

\L {RIGHT} /RNCTEST6~ {RIGHT} ~ 
{IF TEST5=TEST6} {BRANCH SUB3} 
{IF TEST6<"X")} {BRANCH \L} 
{LEFT} {END} {LEFT} {LEFT} {DOWN 13}/FCCND11..D73~V501A~ 
{END} {DOWN} {DOWN 2} /FCCNAUGMENT~ 
{ESC 2}C:SCENAR~ 
/RNLR{PGDN 3}7 
{UP 2}{END}{UP}{UP 13}/FXV{ESC 2}A:{TITLE1}~ 
. . {RIGHT} {END} {RIGHT} {DOWN 75} {END} {DOWN} ~ 
{WINDOWSON } {QUIT} 


TITLEL 
TITLE2 


\O {HOME}(DOWN 13)/WIC" 
/FCCND11. .D73~ 
{ESC 2}C:\123\WKSFILES\V501A~ 
/WCS17~ 
{ END } {HOME } { DOWN} { END} { LEFT} /FCCNAUGMENT™~ 
{ESC 2}C:\123\WKSFILES\SCENAR~ 
/RNLR{PGDN 3)}~ 
{GOTO }MOVE~ /RND\O~ 
{ PGDN) {END} { DOWN) {LEFT) /FXV{ESC 2)A: (TITLE2}~ 
.. {HOME}~R 
/FR{ESC 2}A: {TITLE2}~ 


SUB3 /WIc™ 
/wcs1~ 
>~/G7.. (DOWN 75}~ 
{RIGHT} {BRANCH \L) 


\P {END} {HOME} {RIGHT} { END} {UP} 
{END} { LEFT} {RIGHT} {DOWN 4}x~ 
{ PGUP} /WIR~X~ 
{LEFT} /DF. . {HOME} {RIGHT} ~1~~~ 
{ HOME } { DOWN 9} {RIGHT} /RNCSTART™ { ESC} { PGUP} ~ 
/RNCSTOP™ { ESC} { END} {RIGHT} { PGUP}~ 
{IF STOP="X") /RNCSTOP™ { LEFT} ~ 
{IF STOP-START+1>16} {BRANCH SUB100} 
{IF STOP-START+1<16} {BRANCH SUB200} 
{BRANCH PRINT20} 


SUB100 {GOTO }STOP~ 
{DOWN 77}X7 
{GOTO }START™~ 
{ DOWN } /PPCAOS { ESC}\015~ 
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Appendix III-C --Continued 


SUB100 (Continued): 
MLO~MR240~MBO~ P67~ 
BC {HOME} { END} {DOWN}. . {END} { DOWN} ~ 
QR..{DOWN 76) {END} {RIGHT} {UP}~ 
AGPQ{GOTO}STOP~ 
/RNDSTART™ 
/RNCSTART™~ 
{ESC} {RIGHT} ~ 
{IF START="X"} {QUIT} 
/RNCSTOP~ {DOWN 5)}{END} {RIGHT} { PGUP}~ 
{IF STOP="X"} /RNCSTOP™ { LEFT} ~ 
(BRANCH \Q) 


SUB200 /RNCSTOP~ {DOWN 5} {END} {RIGHT} { PGUP}~ 
{IF STOP="X"}/RNCSTOP~ {LEFT}~ {BRANCH PRINT20} 
{IF +STOP-START+1<16} {BRANCH SUB200} 
{IF +STOP-START+1>16 } /RNCSTOP~ 
{DOWN 5}{END} {LEFT} {UP 5}7~ 
{BRANCH PRINT20} 


SUB300 {GOTO}STOP~ 
/RNDSTART~ 
/RNCSTART~ 
{ESC} {RIGHT} ~ 
{IF START="X")} {QUIT} 
{BRANCH SUB200} 


PRINT20 {GOTO)STOP™ 
{DOWN 77)X™ 
{GOTO} START™~ 
{ DOWN } /PPCAOS { ESC}\0157~ 
MLO~MR240~MBO~ P67~ 
BC {HOME} {END} {DOWN}. . {END} { DOWN} ~ 
QR.. {DOWN 76}{END) {RIGHT} {UP}~ 
AGPQ{ BRANCH SUB300} 


SCENARIO 
OUTPUTL 
INPUTL 


PART2 \O {HOME)/RE(DOWN 19)~ 
/FCCETEMP~ 
/FEWTEMP~Y~ 
{GOTO}A76~/RNLR{PGDN 12)~ 
/RND\O7 
{GOTO} TITLE2~ 
{LEFT} /RNCMOVE™ {RIGHT} {DOWN 12)7 
/WGFF7 
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Appendix III-C --Continued 


PART2 \0 


Ne 


\U 


(Continued): 

{END} (HOME) {RIGHT} {END} {UP} { END} { LEFT) {RIGHT }X~ 
{HOME} /RNCTEST~ ~ 

/WCS15~ 

/RNCTEST™ {RIGHT} ~ 

{IF TEST="" "}{RIGHT}/WCS15~ { BRANCH hws} 
{IF TEST=":"} {RIGHT} /WCS1~ {BRANCH \T} 
{IF TEST="X"}/RNDTEST~ {BRANCH \U} 
{RIGHT} /WCS15~ 

{BRANCH \T} 

{GOTO}B5~ 

/RLC..{DOWN 6} {END} {RIGHT}~ 

{ END} (HOME} {RIGHT} { END} {UP} {END} { LEFT} 
{RIGHT } /FCCETITLE~ 

/RNCA™~ 

{ LEFT 2) {END} { DOWN} { DOWN) /WDR* /WIR~ 
LEXV UCSC ZA tA) 

A399. .IV17 

J/EEWEL DLE! 

{HOME} {QUIT} 
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Appendix IV 


Print Macro for Base-Year Crop Spreadsheets 


\A /PPCAOMLO~s\015~ 


MR240~ 
OUQ 
OBCA1. 


E265" 


BRE1. .CW107Q 
RF11..R597~AG 


PRF60. 
PREVI 
PRF161 
PRF203 
PRF252 
PRS is 
PRS60. 


PRSILL, 
PRS161. 
PRS203. 
EBRSZ528 
PRAF11. 
PRAF60. 


PRAFLITIS 
PRAF161. 
PRAF203. 
PRAF252. 


PRA bie 
PRAS60. 


PRAS111. 
PRAS161. 
PRAS203. 
PRASZ52e 


PRB bee 
PRBF60. 


PRBF111. 
PREELOU: 
PRBF203. 
PRBF252. 
PRBS11.. 


PRBS60. 
PRBS111 
PRBS161 
PRBS 203 
PRBS252 


%U.S. Government Printing Office : 1989 - 


.R1107 AG 

. .R1607~AG 
. .R202~AG 
RZ LeAG 
. .R265~AG 
.AE59~ AG 

.AE110~ AG 
.AE160~ AG 
.AE2027~ AG 
.AE2517~ AG 
.AE265~AG 
.AR59~ AG 
.AR110~ AG 
.AR160~ AG 
.AR202~ AG 
.AR2517~AG 
.AR265~ AG 
.BE59~ AG 

. BE1L1LO~AG 

. BE160~ AG 
. BE202~ AG 
.BE251° AG 
. BE265° AG 
. BR59~ AG 

.BR110~ AG 
. BR160~ AG 
. BR202~ AG 
-BRZ5 1° AG 
.BR265~AG 
CE59~ AG 

.CE110°~AG 

. .CE1607AG 
. .CE202~ AG 
. .CE252~AG 
. .CE265~ AG 


241-793/80665 
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PRGPIELS 
PRCF60. 
PRGEL ID 
PRCF161 
PRCF203 
PRCF252 
PROR UT 
PRCR60. 


PRCRELL 
PRCR161. 
PRCR203. 
PRORZOOn 


PPQ™ 


¥CO59°AG 

SCOLLO=AG 
. .CQ1607AG 
MPCO202-AG 
C0251 7AG 
. .CQ2657AG 
.CW59~AG 

.CW1107AG 
.CW160~AG 
.CW2027AG 
.CW2517AG 
.CW2657AG 
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